Vergangenes Monat suchen
16.06.2003 13:52:12
Herbert
Habe folgendes Makro, das mir in Spalte V alle vergangenen Datumseinträge sucht und in Spalte A die jeweilige Zelle farbig makiert, aber nur im aktuellen Monat z.B. jetzt Juni!!! Wenn der Datumseintrag z.B. 30.05.03 ist, wird er nicht gefunden. Was mach ich falsch???
Danke für Eure Hilfe
Dim lZeile, i
Columns(1).Interior.ColorIndex = xlNone
lZeile = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lZeile
'Prüfen, Kündigung versäumt gekündigt
If Month(Cells(i, 22)) = Month(Date) And Day(Cells(i, 22)) < Day(Now) Then
MsgBox Cells(i, 1) & ", " & Cells(i, 12) & Chr(13) & "Kündigung abgelaufen" & Chr(13)
Cells(i, 1).Interior.ColorIndex = 10
End If
Next i
Anzeige