Gruppe
Datei
Problem
Wie kann ich den xlSaveAs-Dialog so aufrufen, daß er die Dateien eines bestimmten Verzeichnisses zeigt? Danach muß das Ursprungsverzeichnis wieder das aktuelle sein.
StandardModule: basMain
Sub Speichern()
Dim sDirOld As String, sDirNew As String
On Error GoTo ERRORHANDLER
sDirOld = CurDir
sDirNew = Range("B1").Value
ChDrive Left(sDirNew, 1)
ChDir sDirNew
Application.Dialogs(xlDialogSaveAs).Show
ChDrive Left(sDirOld, 1)
ChDir sDirOld
Exit Sub
ERRORHANDLER:
MsgBox "Verzeichnis wurde nicht gefunden!"
End Sub