VBA Zelle färben wenn Datum erreicht

[Björn.412]

Moin,
ich würde gerne wissen, wie man mittels VBA eine Zelle färbt, wenn das heutige Datum erreicht wurde.

[Klaus-Dieter]

Hallo,

zum Beispiel so:

Code:

Private Sub Worksheet_Activate()
    If Cells(2, 1).Value = VBA.Date Then
        Cells(2, 1).Interior.Color = 255
    Else
        Cells(2, 1).Interior.Color = xlNone
    End If
End Sub

Wenn das Blatt geöffnet wird, erfolgt die Färbung wenn in Zelle A2 das heutige Datum steht. Andernfalls wird die Färbung wieder aufgehoben.

[Björn.412]

Perfekt und danke für die schnelle Antwort.