Hallo ihr Lieben,
ich will eine Schleife bauen, die mir in meinem Tabellenblatt in Spalte H nach der Zeichenfolge "ABC" sucht und alle darunterliegenden Zeilen löscht, bis wieder eine beschriebene Spalte H kommt.
Als ersten Wurf hab ich mal sowas gemacht. Macht das Sinn???
Vielen Dank für Eure Antworten!
Sub Suchen_löschen()
Dim i As Long
For i = Cells(Rows.Count, 8).End(xlUp).Row To 1 Step -1
If Cells(i, 8) = "ABC" Then
Do
Rows(i).Delete
While Range("H1:h200").SpecialCells(xlCellTypeBlanks) = True
End If
Next i
End Sub |