Menüleiste

Hallo liebe Excel-Freunde,
ich habe zwei Arbeitsmappen Workbook1 und Workbook2. In beiden Arbeitsmappen habe ich die Menüleiste1 per Makro um einige Steuerungselemente erweitert. Das hat unter anderen den Vorteil, dass ich von Workbook1 per Klick die zweite Arbeitsmappe öffnen kann.
Auch das Schließen der jeweiligen Arbeitsmappe habe ich über die Menüleistenerweiterung per Klick geregelt. (MsgBox "Speichern Ja Nein" habe ich ausgeschaltet)
Arbeite ich nur mit einer Mappe gibt es keine Probleme mit dem Programmcode.
Auch beim hin- und herschalten der beiden Mappen gibt es keine Probleme. Wird eine Mappe deaktiviert wird die Menüleiste zurückgesetzt und bei der aktivierten Mappe das Makro Menüleistenerweiterung neu aufgerufen.
Mein Problem liegt beim Schließen einer Mappe wenn beide Geöffnet sind. Zwar Speichert und Schließt Mappe1 einwandfrei aber das Makro Menüleistenerweiterung der noch geöffneten Mappe wird nicht gestartet obwohl ich das Makro auf die Ereignisse >Workbook ActivateWindow Activate Kann sich jemand in mein Problem hineinversetzen, ich denke mir das beim Schließen einer Mappe die zweite noch geöffnete Mappe bzw. das Fenster nicht aktiviert wird und somit die Makroausführung "Symbolleistenerweiterung" ausbleibt.
Ich freue mich auf Ideen von Euch
Viele Grüße Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Menüleiste

15.03.2008 19:40:00

Hajo_Zi

AW: Menüleiste

16.03.2008 18:46:57

Stefan

Hallo Hajo, noch einmal zur besseren Verständigung ich habe zwei Arbeitsmappen geöffnet die jeweils von einem Button in der CommandBars(1) durch Klick geschlossenwerden können.
Das Schließen-Makro:
'====================================


Private Sub Mappe_Schließen()
Application.CommandBars(1).Reset
ActiveWorkbook.Close SaveChanges:=True
End Sub

'====================================
Schließe ich allso eine der beiden Mappen, möchte ich erreichen, dass in der einen noch offenen Mappe das Makro "Menüleistenerweiterung" einsetzt.
Und das habe ich auf die schon geschilderten Ereignisse gelegt. Programmcode wie folgt:
'================================================


Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.Run "Menüerweiterung"
End Sub

'================================================
Und genau dieses Makro wird nicht ausgeführt, stattdessen besagte Fehlermeldung.
Als wenn das Fenster nicht aktiviert wird oder keinen Focus erhält.
PS. Der Progammcode steht in beiden Mappen gleichermaßen.
Bis bald Gruß Stefan

Beliebteste Forumthreads (12 Monate)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread