Zellen Löschen
22.09.2003 08:56:58
Stefan
vielen dank für die hilfe
Sub LeereZeilenLöschen()
Dim letzteR As Integer
Dim i As Integer
Selection.SpecialCells(xlLastCell).Select
letzteR = ActiveCell.Row
Range("A1").Select
Do
If ActiveCell.Value = "0" Then
i = ActiveCell.Row
Rows(i).ClearContents
letzteR = letzteR - 1
If i > 1 Then
ActiveCell.Offset(-1, 0).Select
End If
End If
ActiveCell.Offset(1, 0).Select
Loop While ActiveCell.Row <= letzteR
End Sub