Versuchs ma damit:
Sub aktuelle_Datum()
Dim j As Integer
Dim zelle As String
For j = 1 To 20
zelle = "$A$" & CStr(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
Severus
|