Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > VBA Zelle färben wenn Datum erreicht
Normale Version: VBA Zelle färben wenn Datum erreicht
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Björn.412

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

Klaus-Dieter

07.05.2022, 12:10
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

07.05.2022, 14:16
Perfekt und danke für die schnelle Antwort.
Clever-Excel-Forum > Office-Anwendungen > Excel > VBA Zelle färben wenn Datum erreicht