Hallo Andreas
ich vermute mal Du kennst Dich mit VBA aus und kannst eins der folgenden Makros Dir anpassen.
129. 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
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 Cells(I, 1) = "1" 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.
130. Ganze Zeile löschen, wenn Zelle in Spalte A leer
das folgende Makro löscht die Zeilen, wenn im Bereich A1 bis A29 leere Zellen enthalten sind:
Sub Leerzeilenlöschen()
Range("A1:A29").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Den Bereich kannst Du ja einfach anpassen
Im Bereich Leerzeilen noch ein Fehler
Sub Leerzeilenlöschen()
Dim I As Long
For I = ActiveSheet.Cells.SpecialCells(xlLastCell).Row To 1 Step -1
On Error Resume Next
Rows(I).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Next I
End Sub
Gruß Hajo