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