Nochmal: Nullen weg
08.04.2005 09:57:45
Demian
Sub Auswertung3()
Dim l As Long
Dim Letzte As Long
Letzte = Range("a500").End(xlUp).Row
For l = Letzte To 1 Step -1
If Not IsEmpty(Cells(l, 1)) Then
If Cells(l, 1).Value = 0 Then Rows(l).Delete
End If
Next
End Sub
https://www.herber.de/bbs/user/20858.xls
Jemand eine Ahnung, was ich falsch mache?
Gruß, Demian