Speicherort Problem, Bezug aus Zelle
07.08.2004 08:55:29
geri
habe folgenden Code und funktioniert auch, aus Zelle A1 beziehe ich den Speicherpfad
Sub testsave()
Dim neuName As String
Dim Speicherpfad As String
Speicherpfad = Sheets("Tabelle1").Range("A1").Value
ChDir Speicherpfad
neuName = InputBox("Unter welchem Namen soll die Datei gespeichert werden?")
ActiveWorkbook.SaveAs Filename:=neuName & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
MsgBox " Die Datei wurde unter " & Speicherpfad & "\" & neuName & ".xls gespeichert !", vbInformation
End Sub
Es gibt Problem wenn in Excel Optionen/Allg/Standardspeicherort etwas definiert ist, wenn ja dann wird File konsequent dort gespeichert !!! obwohl die Variablen alle Inhalt haben und auch melden.
Kenn jemand das Problem und evt. eine Lösung ???
Danke
gruss geri