ich brauche ein Makro das mir die Zeilen löscht, wenn in Spalte S eine 0 steht!
Danke vorab...
Willi
Option Explicit
Sub löschen()
Dim LoI As Long
Dim LoLetzte As Long
' letzte Zelle in Spalte A unabhängig von Version
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 19)), Cells(Rows.Count, 19).End(xlUp).Row, Rows. _
Count)
On Error Resume Next
For LoI = LoLetzte To 1 Step -1
If Cells(LoI, 19) "" And Cells(LoI, 19) = 0 Then Rows(LoI).Delete
Next
On Error GoTo 0
End Sub