ich benötige ein Makro, das die letzte gefüllte Zeile aus dem Bereich A1:N100 sucht und diese Zeile kopiert und in das Datenblatt "Historie B2:N100" in der ersten leeren Zeile einfügt.
Kann mir jemand dabei helfen?
Vielen Dank.
Laura
Sub daten_kopieren()
Dim zeile, zeile_nach As Long
' geht davon aus, daß die Tabelle mit den Daten "Daten" heißt
zeile = Sheets("Daten").Range("A1000").End(xlUp).Row
' den Wert nach dem A kannst Du bei Bedarf erhöhen auf 10000 oder mehr
zeile_nach = Sheets("Historie B2_N100").Range("A1000").End(xlUp).Row + 1
With Sheets("Daten")
.Range(.Cells(zeile, 1), .Cells(zeile, 14)).Copy _
Sheets("Historie B2_N100").Cells(zeile_nach, 1)
End With
End Sub
Testdatei: https://www.herber.de/bbs/user/96672.xls