Ich möchte eine Datei unter einem bestimmten Namen und in einem bestimmten Ordner speichern.
Den Namen und die Dateiendung (mit Makro) bekomme ich hin. Der gewählte Ordner wird aber nicht _ angezeigt, sondern immer der zuletzt verwendete Ordner.
Sub speichern()
Sheets("Daten").Select
ChDir "C:\Benutzer\Öffentlich\Öffentliche Dokumente\Bio\"
' oder ChDir "C\Users\Public\Documents\Bio"
Application.Dialogs(xlDialogSaveAs).Show Range("L278") & " " & Range("L282"), _
xlOpenXMLWorkbookMacroEnabled
End Sub
Es muss auch geprüft werden ob der Ordner existiert und wenn nicht angelegt werden. Hierzu habe ich noch gar keinen Code.
Gruß Udo