ich möchte aus einer Excel-Datei heraus mit einem Makro den "Speichern unter"-Dialog aufrufen. Der Dateipfad soll sein: D:\Dateien. Die Ausgangsdatei liegt auf C:\Users\user\Desktop.
Mein Problem: Der Dateipfad ändert sich nicht, es wird als Speicherpfad immer C:\Users\user\Desktop vorgegeben. Das aktuelle Verzeichnis CurDir ändert sich allerdings schon, wie mir die entsprechende MsgBox ausgibt (s.u.). Als Dateiname wird Test.xlsm übernommen.
Sub speichern_unter()
ChDrive "D:\"
ChDir "D:\Dateien\"
MsgBox CurDir
Application.Dialogs(xlDialogSaveAs).Show "D:\Dateien\Test.xlsm"
End Sub