Wer weiss, wie man die Zeilen auf einmal löschen kann, wenn in der Spalte A eine 0 steht. (Zu überprüfender Zeilenbereich: 8:288
Danke für Eure Hilfe
Ciao,
Richard
Sub NullZeilenLoeschen()
Dim i%
For i = 288 To 8 Step -1
If Cells(i, 1).Value = 0 Then Rows(i).Delete
Next i
End Sub
Sub NullZeilenLoeschen()
Dim i%
For i = 288 To 8 Step -1
If Cells(i, 1).Value = 0 And Not IsEmpty(Cells(i, 1)) Then Rows(i).Delete
Next i
End Sub