bedingte Formatierung

Question

Hallo zusammen,
ich wünsche zunächst allen ein frohes neues Jahr.
Nun zu meinem Problem.
Ich habe eine Datei (Muster habe ich eingestellt), in der ich meine Termine festhalten möchte. Die Datei geht vom 01.01. bis 31.12.
Ich möchte jetzt, dass am jeweils heutigen Datum die Zeile von B bis H Türkis ausgefüllt wird. Das klappt auch prima, wenn ich die Zeilen einzeln markiere und dann in der bedingten Formatierung die Formel eingebe: =B4=A1. Und das jeweils für jedes weitere Datum. Es klappt aber nicht mehr, wenn ich alles markiere (B4:H369) und dann die Formel eingebe, da dann überall B4=A1 steht.
Wie muss die Formel aussehen, damit ich für das ganze Jahr die bedingte Formatierung in einem Zug eingeben kann?
Danke und Gruß Flodnug

Upload: http://www.xup.in/dl,12539544/Probe.xlsx/

Answer 1

Hallo Flodnug,

Option Explicit

Private Sub Workbook_Open()
Dim rngC As Range
ThisWorkbook.Worksheets(Format(Year(Date), "@")).Select
For Each rngC In Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If rngC = Date Then rngC.Select
Next
End Sub

Gruß
Rainer

Answer 2

Hallo Rainer,
vielen, vielen Dank.
Klappt wie immer alles prima.
Ich wünsche Dir für morgen noch einen schönen Feiertag, falls bei Euch einer ist. Bei uns (Sachsen-Anhalt) ist einer.
Gruß Flodnug