folgende Aufgabenstellung habe ich:
2 Dateien
Erste Datei: Werte ab Zeile A2 bis IV (Spaltenlänge variabel) -> in Spalte J steht ein Name unter der die zu erzeugende Datei gespeichert werden soll
Zweite Datei (2 Tabellenblätter)
Daten aus erster Datei (nur ein Tabellenblatt) ab Zeile A2 bis IV, jeweils nur eine Zeile in die 2. Datei (Tabellenblatt "Master Data") ab Zeile D4 kopieren und dann die Datei unter dem Namen aus der Spalte J erste DateI oder Spalte M in der Zieldatei (Tabellenblatt "Master Data") gespeichert werden. Dann die nächste Zeile aus der Quelldatei (A3 bis IV3) usw. (Loop).
Ich habe einen Code hierzu, jedoch stopt der Code:
Sub Daten_Kopieren() Dim wbZiel As Workbook, strPath As String, i As Long strPath = ActiveWorkbook.Path Application.ScreenUpdating = False Set wbZiel = Workbooks.Open("R:\Jahresabschluss_2022\Daten\JA2022.xlsx") With ThisWorkbook.Worksheets("Daten") For i = 2 To .Cells(.Rows.Count, "A").End(iv2Up).Row -> hier stopt das Makro! .Cells(i, "A").Resize(, 24).Copy _ wbZiel.Sheets("Master Data").Range("d4") wbZiel.SaveAs Filename:=strPath & "\" & .Cells(i, "J") Next i End With Set wbZiel = Nothing End SubKann mir jemand bei dem Fehler helfen?
Viele Grüße
Mario