Datei öffnen und Inhalt einfügen
17.03.2021 10:41:41
Dave
folgender Sachverhalt. Ich will eine Datei bearbeiten (Code habe ich schon) und den bearbeiteten Inhalt in eine "Vorlage" einfügen. Diese "Vorlage" will ich öffnen, den Inhalt einfügen und die Vorlage als .CSV abspeichern.
Habe das ganze mal mit dem Recorder aufgenommen, allerdings wenn ich jetzt den ganzen Code laufen lasse, kommt "Laufzeitfehler '1004' ".
Mein Code sieht wie folgt aus:
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Workbooks.Open "C:\ "hier kommt der Pfad".xlsx"
Windows("Vorlage").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Dim NeuerName As String
NeuerName = Range("M1")
ActiveWorkbook.SaveAs "C:\"hier kommt der Speicherpfad\" & NeuerName, FileFormat _
:=xlCSV, CreateBackup:= False
Der Fehler kommt immer sobald der Code von Range("A2").Select auf Selection.PasteSpecial springt.
Kann mir hier jemand weiterhelfen, wo der Fehler liegt? Ich stehe nämlich maximal auf dem Schlauch o.O.
Vorab vielen Dank!
Dave