Kann Datei nicht finden
20.06.2013 08:10:09
Gregor
In einer Datei erstelle ich ein neues Blatt "Testblatt" (mit Inhalt) und verschiebe das anschliessend mit dem Code
Sheets("Testblatt").Move
Anschliessend speichere ich diese Datei mit dem verschobenen Blatt "Testblatt" auf dem aktuellen Laufwerk mit dem Code
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Testdatei.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
Nun das Problem:
Auf meinem PC klappt das bestens. Ich stelle diese Datei aber auf dem Inranet in Form einer Zip-Datei zur Verfügung. Nach dem Öffnen dieser Datei auf einem beliebigen User-PC erfolgt beim Auslösen des Makros beim Speichern (Code: ActiveWorkbook. SaveAs ...) die Meldung: "Auf die Datei konnte nicht zugegriffen werden. Versuchen ..."
Wie kann ich erreichen, dass dieser Code auch auf anderen User-PC funktioniert?
Vielen Dank und Gruss
Gregor