Gruppe
DatumZeit
Problem
Wie kann ich alle Zeilen löschen, wenn das kleiner als Heute ist?
StandardModule: basMain
Sub PruefenLoeschen()
Dim iCounter As Integer, iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row
For iCounter = iRow To 1 Step -1
If Not IsEmpty(Cells(iCounter, 1)) And _
CDbl(Cells(iCounter, 1).Value) < CDbl(Date) Then
Rows(iCounter).Delete
End If
Next iCounter
End Sub