Löschen von Zeilen,deren erster Wert 0 oder "" ist
09.11.2005 09:29:12
Zeilen,deren
ich benötige ein Makro, dass in der Spalte A nach leeren Zellen bzw. nach Zellen mit dem Wert "0" sucht und diese dann löscht.
Ich habe es mit folgendem Makro probiert, aber hier werden Zeilen übersprungen. Was fehlt in dem Code?
Sub DELETE()
Dim Row, Cell, Sheet
Const Column = "A"
For Row = 1 To 40
Cell = Column & Row
Sheets("Tabelle1").Select
Range(Cell).Select
If ActiveCell = 0 Or ActiveCell = "" Then
Selection.DELETE Shift:=xlUp
Else:
End If
Next Row
End Sub
Wäre super wenn mir jmd helfen könnte.
Viele Grüße
Jun