Gruppe
DatumZeit
Bereich
Datum
Thema
Alle Zeilen löschen, in denen das Datum < Heute ist
Problem
Wie kann ich alle Zeilen löschen, wenn das kleiner als Heute ist?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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