Hallo zusammen,
ich habe ein Problem,
ich würde gerne in einer Spalte das Datum mit dem heutigen Datum vergleichen, und falls dieses in 20 Tagen das aktuelle werden wird, dass die entsprechende Zelle einen roten hintergrund bekommt.
Also so in der Art:
Sub pruef()
Dzeile = 2
Izeile = 2
datum = Date
Do While ActiveSheet.Cells(Dzeile, "D") <> ""
If datumzelle = datum - 20Tage Then
Sheets("CheckRTW").Cells(Dzeile, 4).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
Dzeile = Dzeile + 1
End If
Loop
Ich weiss nicht, wie ich das Datumsformat miteinander vergleichen kann.
Das Makro sollte evtl. bei jedem öffnen der Datei selbstständig starten, was kann man da programmieren?
Danke im Voraus.
Gruß Frank