letzte Zeile in neues Sheet kopieren
01.01.2023 00:01:15
Alex
ich bekomme aus einem KPI Sheet einmal im Monat die Zahlen aus dem letzten Monat.
Diese letzte Zeile möchte ich in eine andere Arbeitsmappe am schluß anhängen.
ich scheitere leider daran nur, die letzte zeile zu kopieren.
Alle daten am schluß anhängen schaffe ich, aber nicht die letzte
mein Code würde so aussehen
Sub Kopieren_unterhalb_letzte_Datenzeile()
Dim wsNeu As Worksheet
Dim wsZiel As Worksheet
Dim lLetzteReiheNeu As Long
Dim lLetzteReiheZiel As Long
Set wsNeu = Workbooks("Start.xlsm").Worksheets(1)
Set wsZiel = Workbooks("Ziel.xlsm").Worksheets(1)
'letzte Reihe der neuen Daten finden
lLetzteReiheNeu = wsNeu.Cells(wsNeu.Rows.Count, "A").End(xlUp).Row
'letzte Reihe der neuen Daten finden
lLetzteReiheZiel = wsZiel.Cells(wsZiel.Rows.Count, "A").End(xlUp).Offset(1).Row
'Daten kopieren
wsNeu.Range("A2:D" & lLetzteReiheNeu).Copy _
wsZiel.Range("A" & lLetzteReiheZiel)
End Sub
danke für Eure Hilfe
lg
alex