mit dem folgenden Makro versuche ich Zeilen zu löschen, wenn in einer Spalte ein Datum kleiner G1 ist.
Warum läuft dieses Makro nicht weiter.
Wenn ich das Makro mehrmals auslöse, funktionierts. Bei einmaligem auslösen wird nur ein Teil gelöscht.
Sub löschen()
Dim Lz As Long, i As Long
With ActiveSheet
Lz = .Cells(Rows.Count, "P").End(xlUp).Row
For i = Lz To 1 Step -1
If CDate(.Range("P" & i).Value) > _
CDate(.Range("G1" & i).Value) Then
Rows(i).Delete
End If
Next i
End With
End Sub
Vielen Dank für jede Hilfe
Grüße
Georg