VBA bricht ohne Meldung ab

Sub Workbook_Open() Dim makrolauf As Boolean makrolauf = False For Each wb In Workbooks If wb.Name = "Netzplanauswertung KON.xlsm" Then Application.EnableEvents = False Workbooks("Netzplanauswertung KON.xlsm").Close 0 'Dies ist die letzte ausgeführte Zeile, _ dann Abbruch makrolauf = True Exit For End If Next wb

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
wenn das Makro läuft, darfst du die Mappe1 erst schließen, wenn das Makro durchgelaufen ist.
dh das Workbook-Open-Event der Mappe2 darf die Mappe1 nicht beenden, wenn in der Mappe1 noch ein Makro läuft.!
das kannst du im Prinzip so absichern.
- Schreibe, wenn das Makro in er Mappe1 läuft in eine Zelle der Mappe1 eine Meldung. (das kann das Makro selber machen)
- öffne dann wie gehabt per Makro die Mappe2
- Frage im OpenEvent der Mappe2 diese Zelle ab und prüfe so, ob das Makro der Mappe1 am laufen ist. Wenn ja, schließe die Mappe1 nicht, wenn nein, schließe die Mappe1
- Schließe die Mappe1 am Ende des Makros, welches die Mappe2 geöffnet hat, lösche vor einem eventuellen Speichern die Zelle mit der Makrokennung.
Das wäre dann ein sauberer Ablauf.
Gruß Daniel

…Folks,
denn es ist doch so einiges unklar und MCOs Erläuterungen sind wenig hilfreich, zumal der Wb_Open-TeilCode derartige Schlussfolgerungen gar nicht hergibt. Daraus ergeben sich doch die folgenden Fragen:
1. In welcher Mappe steht diese EventProc?
2. Was wird damit bezweckt?
So, wie es für mich aussieht, wird gezielt oder zufällig die Mappe geöffnet, die diese EventProc hat. Das bewirkt, dass alle anderen bereits geöffneten Mappen mit NamensVgl durchlaufen wdn. Ist der positiv, wird diese Mappe ohne Speichern geschlossen. Da zuvor EreignisReaktion abgestellt wurde, kann das Schließen dieser Mappe auch keine neuerliche EreignisReaktion auslösen. Ein Absturz kann also nur erfolgen, wenn die geschlossene Mappe diejenige ist, die diese Prozedur enthält. Diese Info kann ich aber in dieser Frage nirgends entdecken! Im Code auch nicht, dass irgendeine Mappe neu geöffnet wird; sie müsste ja schon geöffnet sein!
Folglich gibt der gepostete ProzTeil das, was bisher vermutet wurde gar nicht her, so dass das alles, hierauf bezogen, rein spekulativ ist und von Szenarien ausgeht, die gar nicht zutreffen müssen.
MCO sollte erstmal die beiden o.g. Fragen beantworten. Ansonsten müsste, wenn man wirklich alle Mappen, zB eines Verzeichnisses, öffnend durchlaufen wollte, das auch dargestellt wdn. Insofern hat Rudi völlig recht, wenn er dieses Pgm in eine normale Prozedur verlagern will, denn mir erschließt sich der Sinn nicht, das mit einer Wb_Open-Proz tun zu wollen. Hier wäre allenfalls ein entsprd Ereignis der Application sinnvoll.
Deshalb halte ich die ganze UrsachenDiskussion für spekulativ und letztlich überflüssig, das gezeigte Pgm aber schlicht für eine ablauftechnische Fehlkonstruktion und zwar schon von der zugrunde liegenden Überlegung her. Mehr gibt das Gezeigte nebst gegebener Info auch nicht her.
Gruß, Luc :-?
Besser informiert mit …

If IsNumeric(Application.Match(UName, ArNamen, 0)) And makrolauf = False Then Makro = MsgBox(" _ Makro starten?", vbQuestion + vbYesNo, "Makro") If Makro = vbYes Or makrolauf = True Then Makrostartet .....

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread