Office: Fehler bei ActiveWorkbook.Save

Hallo Kommunity,
ich habe ein Problem mit meinem Code und hoffe, dass ihr mir weiterhelfen könnt (man muss dazu sagen, dass ich blutiger Anfänger bin).
Aus einer Datei "Ausgabe.xls" wird ein Makro "Test" gestartet. Dieses soll, wenn B1 = X ist, eine zweite Datei "Ziel.xls" aus dem gleichen Ordner unsichtbar öffnen und dann wieder unter dem gleichen Namen abspeichern und schließen. (Die Operationen die zwischendurch durchgeführt werden habe ich weggelassen, es funktioniert auch so nicht). Das ganze soll durch folgenden Code passieren:
Code:

Wenn ich die zwei Dateien lokal gespeichert habe, funktioniert es einwandfrei. Sobald ich sie aber auf dem Firmenserver habe, kommt die Fehlermeldung, dass die Datei "Ziel" zur Zeit verwendet wird und ich es zu einem späteren Zeitpunkt probieren sollte. Klicke ich die Meldung weg, erscheint die Visual Basic Meldung "Laufzeitfehler '1004' Die Methode 'Save' für das Objekt '_Workbook' ist fehlgeschlagen.

Ich hoffe, ich konnte das Problem ausreichend beschreiben.
Schon einmal Danke im Voraus.
Freundliche Grüße,
Bernd

:)

 

Hi Bernd,

benutze statt

Code:

dieses

Code:

 

Hallihallo,
vielen Dank für die schnelle Antwort. Leider hilft die Variante nur bedingt.
Die Meldung, dass die Datei zur Zeit verwendet wird erscheint weiterhin, allerdings kommt dann der Laufzeitfehler nicht mehr. Das Makro scheint einfach zu stoppen; die Datei wird geöffnet, dann aber nicht gespeichert und nicht geschlossen.
Ich habe noch einmal etwas rumprobiert:
Bei folgendem Code tritt der Fehler auf.
Code:

Wenn ich die Zeile
Code:

lösche, dann funktioniert es. Es schein also doch etwas mit der Bearbeitung der Datei zu tun zu haben?
Gruß,
Bernd

 

Hallo Bernd,

schreibe die besagte Zeile mal so: Code:

In besagter Tabelle ist höchstwahrscheinlich ein Excel-Ereignis 'Private Sub Worksheet_Change(ByVal Target As Range)' definiert,
welches Aktivitäten auslöst, die einer zur Kettenreaktion führen können.
Auslöser ist der o.g. Befehl zum schreiben des Wertes '4' in die Zellse 'D3'
Mit 'Application.EnableEvents = False' kann man die Ausführung von Excel-Ereignissen unterbinden; darf nur nicht vergessen, diese wieder einzuschalten.

Gruß von Luschi
aus klein-Paris