Makro gibt Fehler aus
15.09.2005 09:07:08
Achim
Was habe ich falsch gemacht?
Mein Makro löscht die leeren Zeilen aber immer mit der Fehlermeldung:
"Anwendungs oder objektdefinierter Fehler"
Sub LöschenZeilenInMakierung()
Dim i As Long
Sheets("Tabelle1").Select
For i = Selection.Cells(Selection.Cells.Count).Row _
To Selection.Cells(1).Rows Step -1
If Cells(i, "A").Value = """" Or _
IsEmpty(Cells(i, "A").Value) Then Rows(i).Delete
Next i
End Sub
Gruß Achim H.