VBA Zeilen kopieren von einer Datei
25.01.2023 09:59:07
einer
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 Sub
Kann mir jemand bei dem Fehler helfen?Viele Grüße
Mario
Anzeige