Hallo beisamen,
zum Kopieren und Einfügen von Daten von einer Datei in eine andere habe ich mir folgenden Code zusammengebastelt, der leider nicht das gewünschte Ergebnis bringt:
...
Dim wbkQuell As Workbook 'KFZ_ASC_Original.xls
Dim wbkZiel As Workbook 'KFZ_ASC_Kopie.xls
Dim i As Long
Dim j As Long

Set wbkQuell = ActiveWorkbook
Set wbkZiel = Workbooks.Open(Filename:="H:\Eigene Dateien\TEST\KFZ_ASC_Kopie.xls")
For i = 3 To Sheets("ÜbersichtHR").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("ÜbersichtHR").Range("A" & i & ":M" & i).ClearContents
Next i

wbkQuell.Activate
For j = 2 To Sheets("Übersicht").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Übersicht").Range("A" & j & ":M" & j).Copy
Next j
wbkZiel.Activate
Sheets("ÜbersichtHR").Range("A3").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
...
Beim Kopieren wird leider nur der letzte Datensatz aus wbkQuell in wbkZiel eingefügt. Wo liegt der Fehler?
Vielen Dank für Eure Hilfe im voraus.
Gruß
Torsten