Bereich(a1:A10) leer dann Zeile löschen
09.04.2007 17:51:00
REGINA
Habe ein kleines Makro geschrieben, bekomme aber immer den fehler 13
kann da jemand helfen.
Es soll geguckt werden, ob in der Tab in den spalten A bis J Einträge sind , wenn nicht soll die Zeile gelöscht werden.
Sub LeereZeilenLöschen()
Dim i As Long
Dim ende As Long
ende = Range("D65530").End(xlUp).Row
With Worksheets("Tabelle1")
For i = ende To 1 Step -1
If Range(Cells(i, 1), Cells(i, 10)) = "" Then 'Hier Laufzeitfehler 13 Typenunverträ _
glichkeit
Rows(i).Delete
End If
Next
End With
End Sub
vielen dank schon malGruß REgina