Clever-Excel-Forum

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

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

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.

z.B. so?

Code:
Sub LoescheX()

    With ActiveSheet.UsedRange.Columns(1)

        .Replace "X", "", 1

        .SpecialCells(4).EntireRow.Delete

    End With

End Sub

Dreas-wing

ralf_b

MisterBurns

LuckyJoe