VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Mario	Datum: 25.08.2023 07:03:20	Views: 968	Rating:	Antwort:
Thema: VBA Fehler
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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen