Ich möchte leere Zeilen löschen und die Zeilennummern als Variablen angeben.
Erhalte aber eine Fehlermeldung. Wo ist mein code falsch in Zeile 6?
Danke für eure Hilfe.
Hartmut
1 Sub Makro1()
2 Dim start As Integer, ende As Integer
3 ende = 200
4 Range("A170").Activate
5 start = ActiveCell.Row
6 Rows("start:ende").Select
7 Selection.Delete Shift:=xlUp
8 End If
9 End Sub