Ich suche nach einer Möglichkeit einen Text "xyz" in Spalte A zu suchen und die Zeile die den Wert enthält + die folgenden 11 Zeilen zu löschen.
Grüße
Michael
Sub UeberschriftenZeileloeschen()
Dim lngLetzte As Long, lngZeile As Long
Application.ScreenUpdating = False
lngLetzte = IIf(IsEmpty(Range("A" & Rows.Count)), Range("A" & Rows.Count).End(xlUp).Row + 1, _
Rows.Count)
For lngZeile = lngLetzte To 1 Step -1
If Cells(lngZeile, 1) = "xyz" And Cells(lngZeile + 1, 2) = "" And Cells(lngZeile + 1, 3) = _
"" Then
Rows(lngZeile).Resize(11).Delete
End If
Next
Application.ScreenUpdating = True
End Sub
mfg Bernd