Hallo Zusammen,
mit diesem Makro lasse ich die letzten 26 Zeilen aus einem Tabellenblatt in das Tabellenblatt 8 schreiben. Ist auch o.K.
Wenn es aber weniger als 26 Zeilen sind, bekomme ich eine Fehlermeldung
Anwendungs- oder Objektdefinirter Fehler in der Letzten zeile des Makros.
Wie muss das aussehen, das auch die Zeilen kopiert werden, wenn es weniger als 26 Zeilen sind?
Dim lastcell As Range
Dim lRow As Long
Sheets("Hilfe_3").Select
Set lastcell = Sheets(6).Range("A1").End(xlDown)
lRow = Cells(Rows.Count, 1).End(xlUp).Row 'für Spalte A
Range(Cells(lRow - 26, 1), Cells(lRow, 10)).Copy Sheets(8).Range("a2")
Gruss Werner