ich habe folgendes Problem.
Eigentlich mal wieder ganz einfach (denke ich)aber ich hab keine Lösung:
Also ich habe in Spalte 1 einige Zeilen mit "x" markiert.
Und genau diese Zeilen will ich gelöscht haben.
Für eine Lösung wäre ich dankbar!
Gruß
ich habe folgendes Problem.
Eigentlich mal wieder ganz einfach (denke ich)aber ich hab keine Lösung:
Also ich habe in Spalte 1 einige Zeilen mit "x" markiert.
Und genau diese Zeilen will ich gelöscht haben.
Für eine Lösung wäre ich dankbar!
Gruß
Sub X_ZeilenEntfernen()
Range("A1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = "X" Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.EntireRow.Delete
End If
Loop
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Noch mehr Excel-Tipps und VBA-Datenbank unter: http://held-office.de
versuch mal folgenden Ansatz:
Gruß
Peter
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen