Ich möchte ein Workbook speichern. Das macht er auch, allerdings legt er es nicht in dem von mir festgelegten pfad, sondenr einfach in "my documents"!
Kann ich irgendwo eine Art Standartverzeichnis festlegen?
'datei sichern'
Workbooks(makro).Activate
Pfad = "Documents and Settings\Administrator\My Documents\Hinz und Kunz\Praxiseinsatz II\123\" 'Workbooks(makro).Sheets(1).Cells ("A1") & "export\"
ChDrive "c:\"
ChDir Pfad
Datei = tocotronic & "-" & Format(Date, "DDMMYYYY")
Workbooks(output).Activate
Application.DisplayAlerts = False
Workbooks(output).SaveAs Filename:=Datei
ActiveWorkbook.Close
Application.DisplayAlerts = True
'/datei sichern'
danke!!!
gruß
alex