(Tipp 150)
![Nachricht zum Beitrag an Autor Nachricht zum Beitrag an Autor](sitegrafik/icon_direktnachricht.jpg)
![Nach oben Nach oben](sitegrafik/icon_oben.jpg)
Wie kann ich die Zeile löschen, wenn sich in Spalte A eine 1 befindet?
Die Schleife sucht so lange nach Zellen, die jeweils eine 1 enthalten, bis keine mehr gefunden wird:
Sub Loeschen() Dim rngGef As Range Do Set rngGef = Columns(1).Find(What:="1", LookAt:=xlWhole) If Not rngGef Is Nothing Then Rows(rngGef.Row).Delete Loop While Not rngGef Is Nothing End Sub