ich habe eine riesige Tabelle.
Ich möchte nun, daß jede zeile automatisch gelöscht wird, wenn in Spalte E der Wert 1 steht.
wer kann helfen?
Gruß
Tom
Sub test()
For i = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1
If Cells(i, 5) = 1 Then
Rows(i).Delete shift:=xlUp
End If
Next
End Sub
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