Dim
lngZeile
As
Long
Dim
lngLetzte
As
Long
lngLetzte = Cells(Rows.Count, 19).
End
(xlUp).Row
For
lngZeile = lngLetzte
To
1
Step
-1
If
Cells(lngZeile, 19).Value = 0
Then
Rows(lngZeile).EntireRow.Delete
End
If
Next
Dieser Code wurde mir freundlicherweise von
"CrazyTom"
hier im Forum zur Verfügung gestellt.