Datei wird nicht gespeichert
15.11.2005 16:22:14
e
Ich habe bereits im Archiv gesucht, komme aber nicht auf eine Lösung.
Ausgangslage:
Ich habe ein *.xls. Dieses soll mit dem Resultat aus der Formel in A2 benamselt werden.
Ausserdem soll das Speichern-Dialog gleich in ein bestimmtes Pfad gehen - jedoch noch nicht speichern, da die Unterordner jeweils variieren.
Hier mein gescheiterter Versuch:
Sub save()
Dim x
ChDrive "M:\"
ChDir "M:\SERVICE\CUSTOMER"
x = Application.GetSaveAsFilename( _
InitialFileName:=Range("A2"), _
FileFilter:= _
"Excel-Dateien (*.xls), *.xls," & _
"beliebige Dateien (*.*), *.*", _
FilterIndex:=1)
End Sub
Das "Save As" Fenster geht auf. Der zukünftige Name der Datei steht brav unter Namen und unter Save in steht auch der richtige Pfad.
Problem:
Beim Klick auf Speichern passiert nichts. Bzw. das Speichern-Dialog verschwindet, er speichert aber nix.
Kann mir jemand helfen?
Vielend tausend Dank und Gruss
Elisa