|
Wenn unter den Daten in der Tabelle keine weiteren Daten sind, dann ist xlDown keine gute Wahl! Hier besser mit vom Ende der Tabelle mit xlUp nach oben suchen. Ein weiterer Fehler dürfte das +3 sein.
NächsteLeere = Tabelle1.Cells(Tabelle1.rows.count, 1).End(xlup).Row
Kürzer wäre (ungetestet, aber das müsste auch funktionieren):
Tabelle1.Rows("18:20").Copy Tabelle1.Cells(Tabelle1.rows.count, 1).End(xlup).offset(1,0)
Das heit, das müsste reichen:
Sub ZeilenKopieren()
ActiveSheet.Unprotect Password:="passwort"
Tabelle1.Rows("18:20").Copy Tabelle1.Cells(Tabelle1.Rows.Count, 1).End(xlUp).Offset(1, 0)
ActiveSheet.Protect Password:="passwort"
End Sub
|