Gruss Reto
Gruss Reto
ActiveWorkbook.SaveAs FileName:= _
"F:\Daten\WZ\", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
gruss in die schweiz thomas
ruft das den "speichern unter"-Dialog auf mit dem gewünschten Pfad auf?? Muss mir wohl doch mal XP zulegen, wenn das da so einfach ist. :-)
Gruß
Peter
war gestern etwas umnachtet ;-)
so geht es.
gruss thomas
Gruss Reto
so muesste es klappen.
gruss thomas
siehe makro
Sub Datei_PlattenKoordinaten_öffnen()
'Verzeichnis von der Datei Plattenkoordinaten.xls
Workbooks.Open Filename:="C:\daten\Nc\Plattenkoordinaten.xls"
'Verzeichnis in der die Datei Plattenkoordinaten.xls abgespeichert wird
ChDir "F:\Daten\Wz\"
Application.Dialogs(xlDialogSaveAs).Show
End Sub
langsam wird es klarer; aus der VBA hilfe.
Bemerkungen
Die ChDir-Anweisung wechselt das Standardverzeichnis, aber nicht das Standardlaufwerk. Ist das Standardlaufwerk zum Beispiel C:, dann wechselt die folgende Anweisung zwar das Standardverzeichnis auf Laufwerk D:, aber C: bleibt das Standardlaufwerk:
ChDir "D:\TMP"
probiere dies, dann ist bei mir allerdings ende der fahnenstange.
gruss thomas