Fehler beim Speichern
17.02.2021 20:33:48
Thomas
ich bastel gerade an einer Mappe herum, welche aus 2 Dateien besteht.
In der 1. werden alle Werte und Co. eingetragen und in die 2. Datei übertragen. Das klappt soweit auch ganz gut und er speichert diese auch schon perfekt im Zielordner.
Nur leider bekomme ich es nicht hin, den Namen der Datei, welche gespeichert wird, zu ändern
Ich habe bereit zahlreiche Möglichkeiten versucht und auch im Netz mich schon belesen, jedoch ohne Erfolg.
Die derzeitige Formel sieht wie folgt aus:
Sub Speichern()
' Speichern Makro
Workbooks.Open Filename:="C:\Users\Thomas\Desktop\a3 speichern.xlsx"
ActiveWorkbook.SaveAs Filename:="C:\Users\Thomas\Desktop\test\testname.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub
Der Versuch mit
ActiveWorkbook.SaveAs Filename:="C:\Users\Thomas\Desktop\test\" & Range ("G6").xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
schlug fehl und es kommt immer der Fehler: Erwarte Anweisungsende.
Da ich mit VBA bis jetzt nur wenig Erfahrungen habe, hoffe ich das mir hier jemand weiterhelfen kann?
Danke im Voraus, Thomas
Anzeige