Aber irgendwie klappt es nicht :(
Sub Speichern()
' Speichern Makro
Dim strVerzeichnis As String
Dim strDateiname As String
strVerzeichnis = "C:\Users\Dokumente\Wöchentliche Report\Erfassungslieste\"
strDateiname = Application.GetSaveAsFilename(InitialFileName:=strVerzeichnis & _
".xlsx", FileFilter:="Microsoft Excel-Arbeitsmappe (*.xlsx), *.xlsx")
Application.Dialogs(xlDialogSaveAs).Show strDateiname
End Sub