Moin moin zusammen.
Ich habe das Problem, dass ich eine bedingte Formatierung über mehrere Zellen mittels VBA nicht hinbekomme. Das Makro soll die Zellen "A1" bis "A20" nach dem aktuellen Datum durchsuchen. Ist das aktuelle Datum in einer Zelle vorhanden sollen die Zellen "A" bis "F" in grüner Hintergrundfarbe markiert werden.
Anbei poste ich den Code den ich bis jetzt geschrieben habe, und von dem ich glaube das er funktionieren müsste =)
Code:
Sub aktuelle_Datum()
Dim j As Integer
Dim zelle As Range
For j = 1 To 20
Set zelle = Range("A" & j)
Range(Cells(j + 1, 1), Cells(j + 1, 6)).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=WENN(zelle=HEUTE();WAHR)"
Selection.FormatConditions(1).Interior.ColorIndex = 4
Next j
End Sub |