Speichern unter ... Pfad in benannter Zelle verm.
14.09.2006 12:48:31
Peter
Ich habe in einer mit _Pfad benannten Zelle den gewünschten Pfad eingegeben und will diesen fürs Speichern (vgl. unten) verwenden. Mir ist nicht klar, weshalb er diese Angabe ignoriert und stattdessen im zuletzt angewählten Ordner speichert.
kann mir jemand weiterhelfen?
Danke, Peter
dPfad = Range("_Pfad")
Debug.Print dPfad
ChDir dPfad
Sub save_as()
Application.StatusBar = "Überarbeitetes File unter anderem Namen speichern"
Dim varRetVal As Variant
Dim strInitFileName As String
Dim dPfad As String
ChDir "\"
If Environ("Computername") = "NB200507" Then
dPfad = Range("_Pfad")
Debug.Print dPfad
ChDir dPfad
Else
ChDir "I:\Kunden\Auswertungen_Review"
End If
strInitFileName = Left((ThisWorkbook.Name), Len(ThisWorkbook.Name) - 4) & "_Version"
varRetVal = Application.GetSaveAsFilename( _
InitialFileName:=strInitFileName, _
FileFilter:="Microsoft Excel-Dateien (*.xls), *.xls", _
Title:="Datei speichern unter... ")
If varRetVal = False Then Exit Sub
ActiveWorkbook.SaveAs varRetVal
End Sub