irgendwie will es nicht klappen:
Mit folgendem Code soll der "Speichern unter..." - Dialog aufgerufen werden, der entsprechende Pfad geöffnet sein und unter Dateiname selbiger bereits als Vorschlag stehen.
Zum Schluss muss der jeweilige User dann den "speichern"-Button drücken.
Soweit funktioniert das ganze auch - jedoch wird kein Dateiname angezeigt.
Excelversion ist 2007 - abgespeichert werden soll als .xls (2003-Version)
Sub speichern3()
Dim Pfad As String
Dim Datei As String
Dim File As String
Pfad = "C:\Users\Jonathan\Desktop"
Datei = "Liste_TEST"
File = Application.GetSaveAsFilename(Pfad & "\" & Datei & ".xls")
If File False Then ThisWorkbook.SaveAs Filename:=File, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled
End Sub
GrußJonathan