Office: Variablen Bereich löschen

Hallo,

ich suche nach einem Code mit dem ich einen variablen Bereich in einem Tabellenblatt löschen kann.

Mit folgendem Code kann ich eine bestimmte Zeile löschen in der in Spalte A ein Begriff auftaucht. (hier "Marker1")

Code:

lngLetzte = Cells(Rows.Count, "A").End(xlUp).Row
    For i = lngLetzte To 2 Step -1
        If Cells(i, "A").Value = "Marker1" Then
            Rows(i).EntireRow.Delete

Jedoch möchte ich das alle Zeilen gelöscht werden, die über der Zeile mit dem jeweiligen Suchtext vorhanden sind.

Hat jemand eine Idee?

VG,
Lorenz

 

Hallo Lorenz,

ich vermute nur
Rows(i-1).EntireRow.Delete
Rows(i-1).EntireRow.Delete

 

Hallo Hajo,

vielen lieben Dank, das funktioniert auf anhieb.