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
statt wsNeu.Range("A2:D" & lLetzteReiheNeu).Copy _ hätte ich eben gerne das er nur die ermittelte Zeile mit den neuesten daten nimmt und kopiert und nicht die ganze tabelle incl der ermitteltendanke für Eure Hilfe
lg
alex