Speichern unter bzw. Öffnen
Udo
Ich habt mit ja schon so viel geholfen, aber......
Ich möchte bei Speichern auf einen bestimmten Ordner zugreifen. Ebenso soll beim öffnen dieser Ordner ausgewählt sein. Folgenden Code habe ich "zusammengebastelt":
Sub Speichern()
Sheets("Daten").Select
Const sPfad As String = "C:\Users\Public\Documents\Bio"
If Dir(sPfad, vbDirectory) = "" Then MkDir sPfad
ChDrive "C:\"
ChDir "C:\Users\Public\Documents\Bio"
Application.Dialogs(xlDialogSaveAs).Show Range("L278") & " " & Range("L282"), _
xlOpenXMLWorkbookMacroEnabled
End Sub
angezeigt wird mit beim Speichern aber immer der Ordner, in dem sich die Vorlage befindet?
Beim öffnen zeigt er mittlerweile den "richtigen" Ordner an. :-)
Sub oeffnen()
ChDrive "C:\"
ChDir "C:\Users\Public\Documents\Bio"
Application.Dialogs(xlDialogOpen).Show
End Sub
Anzeige