Office: Code funktioniert nur im Einzeschritt

Guten Morgen allerseits

Ich steh mal wieder an und hoffe auf eure Hilfe...


Der Code soll folgendes machen:

1. Datei A: überprüfen ob geöffnet, falls nicht -> Datei A öffnen
2. Datei B: schliessen
3. Datei A: als Datei B speichern und schliessen
4. Datei B: öffnen und Formatierung anpassen


Ich habe schon verschiedene kleine Änderungen am Code vorgenommen, das Resultat bleibt aber immer das Gleiche: im Einzelschritt funktioniert der Code einwandfrei, aber wenn ich das Makro via Button starte, hört Excel immer an der gleichen Stelle mit der Prozedur auf.

Hier der entsprechende Code (er steht in einem Add-In):


Code:

Ich habe keine Ahnung woran das liegt... im Netz hab' ich nur mal gelesen, dass dieses Problem ab und an mal erscheint und man dagegen eigentlich nichts machen kann... manchmal soll ein Umschreiben des Codes helfen, bei mir hats bisher nichts gebracht :-/

Hat jemand ne Idee woran es liegen kann?

Gruss acerspeedlinkacer

:)

 

Hallo,

... hatte ein ähnliches Problem. Offensichtlich kommt das Filesystem nicht hinterher.
Bau mal testweise ein "Wait" dazwischen.

Application.Wait (Now + TimeValue("0:00:02"))

gruß robert

 

Hallo Robert

Besten Dank für die Antwort.


Ich bin nicht sicher, ob dich richtig verstanden habe... ich hab nun den Code folgendermassen angepasst:

Code:

Leider hat es nichts gebracht und es ist immer noch an der gleichen Stelle Schluss. Hab jetzt gerade bemerkt, dass der Code auch normal durchläuft wenn er aus dem VBA-Editor gestartet wird.

Gruss acerspeedlinkacer

 

Hallo,

wenn es am Dateisystem liegt, könnte ein eingestreutes DoEvents dem Betriebssystem die Gelegenheit zum Aufräumen geben.

In welcher Deiner Dateien steht denn der VBA-Code? Wenn es gerade das ActiveWorkbook ist, ziehst Du ihm mit wbFrontend.Close den Boden unter den Füßen weg.

 

Hallo Haklesoft

Der Code steht in einem Add-In, das auf einem NAS liegt. Wie gesagt, wenn ich das Makro normal über den VBA-Editor starte oder im Einzelschritt durchführe, funktioniert alles einwandfrei. Der Code sollte ja dementsprechend eigentlich verfügbar sein?

Interessanterweise hatte der Code zu Beginn funktioniert. Aber irgendetwas, ich hab leider keine Ahnung was, muss ich geändert haben. Nun läufts nicht mehr rund...


Gruss acerspeedlinkacer

 

Hallo acerspeedlinkacer,

warum passt Du die Formatierung nicht einmalig in der Quelldatei "Y:\**\Datei A.xlsm" an?
Dann könntest Du bei jedem User mit FileCopy Quelle, Ziel arbeiten und müsstest nicht ständig Workbooks öffnen und schließen?

Als User würde ich mich ggf. herzlich bedanken, wenn mir der Job per wbFrontEnd.Close meine gerade mühsam erstellte Datei - die ja nicht unbedingt mit dem Job zu tun haben muss - ohne Rückfrage in die Tonne tritt.

 

Hallo Haklesoft

Wir haben bei uns auf der Arbeit eine Excel-Datei mit den wichtigsten Angaben über verschiedene Projekte. Die Datei ist natürlich nicht mehrbenutzerfähig, aber es arbeiten bis zu 4 Personen daran. Oftmals sind es nur kleine Änderungen und man kann sich gut organisieren, dass die eine Person dann eben kurz raus geht wenn eine andere Person etwas bearbeiten muss.

Nun geht es darum, dass die Datei "mehrbenutzerfähig" wird, damit man nicht immer für die kleinsten Anpassungen aus der Datei muss... in diesem Sinne sollen die Personen, die auf die Datei Zugriff haben, eine lokale Kopie der Datei erhalten (wbFrontEnd). Wenn etwas geändert werden soll, wird mittels Makro auf die Datei im Netzwerk (wbBackEnd) zugegriffen und der Datensatz geändert - Excel soll sozusagen zur Datenbank mutieren. Dass das Ganze nicht optimal ist versteht sich von selbst... bei grössseren Bearbeitungen ist es deshalb hilfreich, wenn direkt in der Originaldatei gearbeitet werden kann. Damit sich die Benutzer auch wirklich bewusst sind in welcher Datei sie arbeiten, habe ich die Formatierung angepasst. Das aufgeführte Makro bildet sozusagen die Aktualisierung der lokalen Datei.

Ich hoffe, ich konnte mich verständlich ausdrücken. Ansonsten bitte einfach nochmal nachfragen.

Gruss acerspeedlinkacer

 

Hallo acerspeedlinkacer,

ich würde den Ablauf wohl so gestalten:

1. Lokale Datei ggf. schließen
2. Masterdatei per FileCopy mit neuem Namen lokal ablegen
3. Lokale Datei öffnen, Formatierungen vornehmen, speichern

 

Hallo Haklesoft

Danke für die Hilfe. Ich habs nun so ausprobiert, aber wieder das gleiche: sobald ich wbFrontEnd schliesse, hört Excel auf den Code auszuführen. Beim Start über den VBA-Editor funktioniert es aber... :S

Gruss acerspeedlinkacer

 

Du solltest schauen, ob die Masterdatei in der Excelinstanz geöffnet ist. Dann ggf. mit Hinweis abbrechen.
Du solltest außerdem schauen, ob die lokale Datei geöffnet ist und dann dieses Workbook schließen; - nochmal der Hinweis: das muss nicht das ActiveWorkbook sein!

Und Du solltest mal checken, ob Dein AddIn noch geladen und ansprechbar ist und welcher Code in der lokalen Datei beim Schließen ausgeführt wird.

Erst dann kopierst Du Quelle auf Ziel und öffnest die neue lokale Datei.

 

Wenn ich dich richtig verstehe, dann meinst du das hier?

Code:

Die lokale Datei wird ja geschlossen, dann hängt sich das Makro auf... bzw. wird einfach nicht weiter ausgeführt (ich erhalte auch keine Fehlermeldung oder so). Am Anfang der Prozedur wird das aktive Workbook als wbFrontEnd deklariert, danach wird nur noch mit "wbFrontEnd" gearbeitet. Die Namensgebung hab ich auch mehrfach mit einer msgbox (msgbox wbFrontEnd.Name) überprüft - kam immer richtig raus.

Wie kann ich das überprüfen? Das AddIn ist auch dann verfügbar, wenn nur Excel aber keine Arbeitsmappe geöffnet ist. Die Dateien enthalten neben den Codes CommandButtons keinen weiteren Code. Und diese sind nur Verweise auf Makros im AddIn.


Gruss acerspeedlinkacer

 

Ich weiss nicht, wie bei Dir die Function FileStatus programmiert ist. Vermutlich prüft Sie den Zugriff auf Dateiebene. Das ist in dem Zusammenhang aber eigentlich uninteressant, denn wichtig wäre nur, ob in der aktuellen Excel-Instanz die Masterdatei bereits geöffnet ist.

Beim ersten Schließen des Frontends knallst Du einfach das ActiveWorkbook in die Tonne. Du musst vorher klären, ob es sich dabei tatsächlich um die lokale Datei handelt!