Office: Speichern unter aufrufen und dateityp von xlsm auf xlsx ändern

Hallo Zusammen,

ich möchte gerne per Makro automatisch das Fenster "Speichern unter" aufrufen, einen Dateinamen vorgeben und als Dateityp "Excel-Arbeitsmappe(*xlsx)" auswählen.

Dies funktioniert auch soweit mit dem folgendem Makro:

Public Sub Test()
Dim varFilename As Variant
varFilename = Application.GetSaveAsFilename( _
fileFilter:="Excel-Arbeitsmappe (*.xlsx), *.xlsx", _
InitialFileName:="Testdatei" & ".xlsx")
If varFilename False Then ActiveWorkbook.SaveAs varFilename
End Sub

Das Problem besteht jedoch darin, dass ich bei Betätigen des Buttons "Speichern" folgende Fehlermeldung erhalte:
Laufzeitfehler 1004:
Anwendungs- oder objektdefinierter Fehler

Kann mir hierbei jemand weiterhelfen?

Vielen Dank schon mal für Euren Support.

Gruss

Thomas

:)

 

Moin Thomas!
Die Fehlermeldung ist ja etwas länger und erläutert Dir genau, wo der Fehler liegt!
Es reicht nicht, die Dateiendung zu ändern, ohne den neuen Dateityp mitzugeben!
Heißt:
Code:

Gruß Ralf

 

Hi Ralf,

vielen Dank für deine schnelle Unterstützung.

Irgendwie funktioniert dies nicht.

Wenn ich die Stelle "varFilename" rausnehme, erfolgt die Vorgabe korrekt, jedoch erfolgt danach eine Speicherung unter "51.xlsm".

Habe dir die Datei mal angehangen.

Gruss

Thomas

 

Ja, da fehlte noch ein Komma, Thomas:
(und das Ausschalten der Fehlermeldung)
Code:

 

Die Alerts sollte man aber wieder einschalten!

 

Moin Hasso!
Jein! *wink.gif*
Aus der VBA-Hilfe:

Ist hier also nicht notwendig, da das Sub ja kein Folgesub aufruft.
Es schadet aber nix, ist "besserer" Programmierstil.

Gruß Ralf

 

Hallo Ralf,

absolut perfekt. Genau das habe ich benötigt.
Vielen lieben Dank für deinen tollen Support.

Gruss

Thomas