Wie lösche ich via VBA in einer Tabelle sämltiche Zeilen von der aktiven Zelle beginnend bis zu der Zeile mit dem Suchtext "#DATA"
Vielen Dank
Gerhard
Sub löschen()
Dim z As Range, z1 As Long, z2 As Long
z1 = ActiveCell.Row
Set z = Cells.Find(what:="#DATA", lookat:=xlWhole, after:=ActiveCell)
If z Is Nothing Then MsgBox "nicht gefunden!": Exit Sub
z2 = z.Row - 1 'Zeile vorher?
Range(Cells(z1, 1), Cells(z2, 1)).EntireRow.Delete
End Sub