VBA bestimmte Zeilen löschen

[Dreas-wing]

Guten Abend zusammen,

ich benötige einen kurzen Rat. ich möchte Zeiten mit bestimmten Inhalt löschen, das geht auch nur wenn mehr als eine Zeile nacheinander steht, rückt die zweite Zeile nach und wird nicht vom Code erfasst.

1
X
1
X
X
X
X
1
X
X

alle Zeilen mit X sollen weg. Meine Lösung:

Private Sub löschen_Zeile()

For i = 0 To ThisWorkbook.Worksheets("Zeilen_löschen").Cells(Worksheets("Zeilen_löschen").Rows.Count, 1).End(xlUp).Row
If Cells(1 + i, 1) = "x" Then
Cells(1 + i, 1).EntireRow.Delete
'Cells(1+i, 2) = "X"
End If

Next i
End Sub

oder

Sub ZeilenLoeschen_()
Dim Zelle As Range
For Each Zelle In Range("a1:a20")
    If Zelle = "x" Then
        Zelle.EntireRow.Delete
    End If
Next Zelle
End Sub



Problem: Beide Codes müsste ich 4 mal starten um alle "X" raus zu bekommen. Gibt es da eine Sofortlösung?

Besten Dank und viele Grüße

[ralf_b]

die schleife von unten nach oben laufen lassen. 
also for i = Maxanzahl to 0  step -1  'bzw. to 1 weil Zeile 0 gibt es nicht

[MisterBurns]

Hinweis: Das ganze geht auch ohne Makro, indem du den Autofilter benutzt. Alle x auf einmal löschen ist mit wenigen Klicks erledigt.
Bzw. lässt sich diese Vorgehensweise auch per Makro erledigen und ist wesentlich schneller, als die Schleifenlösung. Bei 500 Zeilen sicher kein Unterschied erkennbar, bei 10.000 auf jeden Fall.

[LuckyJoe]

z.B. so?

Code:

Sub LoescheX()

    With ActiveSheet.UsedRange.Columns(1)
        .Replace "X", "", 1
        .SpecialCells(4).EntireRow.Delete
    End With

End Sub