Möchten Sie per VBA den Dialog "Speichern unter" aufrufen und dabei den Speicherpfad und den Dateinamen vorgeben?

Folgendes Makro erledigt dies für Sie. In diesem Beispiel wird der Pfad "C:\Temp" selektiert und der Dateiname "Testmappe.xls" vorgegeben. Sie müssen einfach nur noch auf OK klicken und die Datei wird gespeichert.

{codecitation}
Sub SpeichernUnter()
'Dialogfeld "Speichern unter" aufrufen
'und dabei den Dateipfad und den Dateinamen
'vorgeben

Dim strDateiname As String
ChDrive "c:\"
ChDir "\temp\"

strDateiname = ("Testmappe.xls")
Application.Dialogs(xlDialogSaveAs).Show (strDateiname)

End Sub
{/codecitation}