Application.SaveAs
Frank
ich habe ein Problem mit Application.SaveAs
In einer xlsm-Datei verwende ich folgenden Code:
Set NeueDatei = Workbooks.Add
NeueDatei.SaveAs Filename:=Replace(ThisWorkbook.FullName, "Template", "Heinz"), FileFormat:=_ xlOpenXMLWorkbook
Die neue Datei wird dann zwar wie gewünscht als xlsx im gleichen Ordner wie die xlsm gespeichert, allerdings als Mappe1.xlsx
Lasse ich den Teil mit FileFormat weg, dann klappt die Namensänderung prima, allerdings ist die neue Datei dann halt auch xlsm, was sie nicht sein soll.
Ich habe auch schon folgendes probiert:
NeuerName = Replace(ThisWorkbook.FullName, "Template", "Heinz")
Set NeueDatei = Workbooks.Add
NeueDatei.SaveAs Filename:=NeuerName, FileFormat:=_ xlOpenXMLWorkbook
Der Erfolg ist der gleiche. Was mache ich falsch?
Danke im vorraus
Frank