Zeilen abhängig von einer bestimmten Bedingung löschen

101078

Mit diesem Makro können sie Zeilen abhängig von einer Bedingung löschen. Die Bedingung in diesem Beispiel ist der Buchstabe "x" in der ersten Spalte. Das bedeutet, wenn eine Zeile in Spalte A ein "x" enthält wird diese Zeile entfernt.
Zuerst wird die letzte verwendete Zeile ermittelt.
Anschließend wird über eine For-Next-Schleife jede Zeile gelöscht, die das entsprechende Kriterium enthält.


Public Sub bedingte_Zeilenlöschung()
'Ermittlung der letzten Zeile
lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row

'Durchlauf aller Zeilen
For t = lz To 2 Step -1 'Zählung rückwärts bis Zeile 2
'Abfragen, ob in der ersten Spalte der Buchstabe "x" steht
    If Cells(t, 1).Value = "x" Then
        Rows(t).Delete shift:=xlUp
    End If
Next t
End Sub