löschen wenn Spalte A kein Datum enthält
folgender Vorschlag (die Spalte A wird auf Datumsinhalte überprüft):
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step 1
If Not IsDate(Cells(i, 1).Text) Then Rows(i).Delete
Next
Sub löschen()
mit bestimmten Datum löschen
Dim I As Long
Dim Letzte As Long
If [a65536] = "" Then
Letzte = [a65536].End(xlUp).Row
Else
Letzte = 65536
End If
On Error Resume Next
For I = Letzte To 1 Step -1
If IsDate(Cells(I, 1)) Then
If CDate(Cells(I, 1)) = CDate("23.12.89") Then Rows(I).Delete
End If
Next
End Sub
Oder 1
Sub löschen()
Dim I As Long
Dim Letzte As Long
Letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
On Error Resume Next
For I = Letzte To 1 Step -1
If Cells(I, 2) = "" Then Rows(I).Delete
Next
End Sub
Das Suchen von hinten hat den Grund, daß schon einmal angesprochene Zeilennummern nicht wieder _
untersucht werden. Wenn du z.B. die Zeile 17 gelöscht hast, ist die ursprüngliche Zeile 18 jetzt die Zeile 17, die wird aber nicht noch einmal überprüft, usw.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen