Sub lala()
endup = Range("A65536").End(xlUp).Row
For i = 1 To endup
'Jetzt kommts drauf an, was du mit Ende meinst - sollen alle
'Zeilen die mit einer 0 beginnen weg, oder nur ein paar
'am Ende?
'Hier geloest fuer alle Zeilen...
Range("A" & i).Select
If ActiveCell.Value = 0 Then
Rows(i & ":" & i).Select
Selection.Delete Shift:=xlUp
End If
Next i
End Sub
Sub nullenvonuntenloeschen()
Dim i As Integer
For i = ActiveSheet.UsedRange.Rows.Count() To 1 Step -1
If Range("a" & i).Value = 0 Then
Rows(i).Delete
Else
Exit Sub
End If
Next i
End Sub
Sub raus...
<hr><b>Rückmeldung nicht vergessen...</b><hr><img src="http://www.c0bra.de/smiles/lam.gif"><font size="+1"><b> c0bRa</B></font>