24.08.2023, 14:09
Hallo,
ich folgende VBA. Diese VBA nimmt eine Zeile, öffnet eine andere Excel Datei, kopiert die Zeile ab D4 hinein, benannt die Exxcel Datei nach dem Namen in Spalte JJ und schließt die Datei. Dann die nächste Zeile. In einigen Spalten habe ich einen Sverweis, der soll nicht mitkopiert werden, nur die Werte der jeweiligen Zelle. Das Makro funktioniert bis zum Punkt ".PastSpecial Past:=xlValues" dort wird die Zeile gelb markiert. Hier scheint etwas zu fehlen, nur was? VG Mario
Sub Daten_Finance_Review()
Dim wbZiel As Workbook, strPath As String, i As Long
strPath = ActiveWorkbook.Path
Application.ScreenUpdating = False
Set wbZiel = Workbooks.Open("R:\Jahresabschluss_DD\JA2023\Finance Review\04_Master für mtl und jährliches Finance Review\Finance Review_Master.xlsx")
With ThisWorkbook.Worksheets("Daten")
For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
.Cells(i, "A").Resize(, 268).Copy _
wbZiel.Sheets("Master Data").Range("d4")
wbZiel.SaveAs Filename:=strPath & "\" & .Cells(i, "jj")
.PasteSpecial Paste:=xlValues
.PasteSpecial past:=xlFormats
Next i
End With
Set wbZiel = NothingJ
End Sub
ich folgende VBA. Diese VBA nimmt eine Zeile, öffnet eine andere Excel Datei, kopiert die Zeile ab D4 hinein, benannt die Exxcel Datei nach dem Namen in Spalte JJ und schließt die Datei. Dann die nächste Zeile. In einigen Spalten habe ich einen Sverweis, der soll nicht mitkopiert werden, nur die Werte der jeweiligen Zelle. Das Makro funktioniert bis zum Punkt ".PastSpecial Past:=xlValues" dort wird die Zeile gelb markiert. Hier scheint etwas zu fehlen, nur was? VG Mario
Sub Daten_Finance_Review()
Dim wbZiel As Workbook, strPath As String, i As Long
strPath = ActiveWorkbook.Path
Application.ScreenUpdating = False
Set wbZiel = Workbooks.Open("R:\Jahresabschluss_DD\JA2023\Finance Review\04_Master für mtl und jährliches Finance Review\Finance Review_Master.xlsx")
With ThisWorkbook.Worksheets("Daten")
For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
.Cells(i, "A").Resize(, 268).Copy _
wbZiel.Sheets("Master Data").Range("d4")
wbZiel.SaveAs Filename:=strPath & "\" & .Cells(i, "jj")
.PasteSpecial Paste:=xlValues
.PasteSpecial past:=xlFormats
Next i
End With
Set wbZiel = NothingJ
End Sub
