VBA-Programmierung in Microsoft Excel

Alle Zeilen löschen, in denen das Datum < 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

    

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Datum