Dialog: Datei speichern unter
04.11.2004 11:40:11
Reinhard
ich benutze folgenden Dialog ( aus Herbers Beispiel 063499v.xls ):
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
Dieses Beispiel funktioniert nur mit neuen Arbeitsmappen. Ich möchte jedoch eine schon gespeicherte Arbeitsmappe in einem anderen Verzeichnis mit einem neuen Dateinamen speichern. Wie kann ich die VBA-Code so ändern, das er mir im Dialog das neue Verzeichnis anzeigt?
Vielen Dank schon mal für evt. Hilfe
Reinhard
Anzeige