Sub Lieferschein()
Dim zeile As Integer
zeile = Range("C29").End(xlDown).Row
[zeile] = zeile + 1
Sheets("Lieferschein").Select
Rows("29:[zeile]").Select
Selection.Delete Shift:=xlUp
...
...
sub end
Es erscheint die Fehlermeldung: Typen unverträglich.
Hat mir jemand einen Input, wie ich diese Variable einbringen kann, damit ich diese Zeilen löschen kann?
vielen Dank für die Antworten