HERBERS Excel-Forum - die Beispiele

Thema: Bei Tabellenaktivierung im Extras-Menü eigenen Menüpunkt anzeigen

Home

Gruppe

Ereignis

Problem

Wie kann ich im Extras-Menü bei der Anzeige dieser Arbeitsmappe einen eigenen Menüpunkt anzeigen und beim Fensterwechsel wieder ausblenden lassen?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
ClassModule: DieseArbeitsmappe

Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)
   Dim oBar As CommandBar
   Dim oPopUp As CommandBarPopup
   Dim oBtn As CommandBarButton
   Set oBar = Application.CommandBars("Worksheet Menu Bar")
   Set oPopUp = oBar.FindControl(ID:=30007)
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Meldung"
      .OnAction = "mnuMeldung"
      .Style = msoButtonCaption
   End With
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)
   Dim oBar As CommandBar
   Dim oPopUp As CommandBarPopup
   On Error Resume Next
   Set oBar = Application.CommandBars("Worksheet Menu Bar")
   Set oPopUp = oBar.FindControl(ID:=30007)
   oPopUp.Controls("Meldung").Delete
   On Error GoTo 0
End Sub

StandardModule: basMain

Sub mnuMeldung()
   MsgBox "Ich bin die Meldung!"
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open

Msg mit 2 Ereignissen +Cancel Workbooks open
Ereignisprozedur Excel-Tabelle in OpenOrg
getopenfilename mit Teil der Dateiname Makro für ereignisabh. Druck verschiedener Seiten
Benutzerdefinierte Funktion in Open Office UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden? GetOpenFilename Dateiname vorbelegen
xlDialogOpen anpassen Symbolleisten durchloopen: löschen & restore
Zeilen aus- einblenden als Ereignis? Welches Ereignis ist das richtige ??
Symbolleisten durchloopen und ausblenden Ereignis Arbeitsblatt sperren abfangen
Workbook open Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis xlDialogOpen bei Excel 2007 funzt nicht
komisches phänomän bei set xx open workbook Change-Ereignis in Combobox unterdrücken
Combobox Ereignis MS OFFICE - OPEN OFFICE
Userform, Ereignis deklarieren im Klassenmodul Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen Command Button Ereignis
Workbook Open Ereignis von Laufzeit-Checkbox
Wochenangabe bei WorkbookOpen change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern change-ereignis bei dynamisch erstellten Controls
Schaltfläche - Ereignis erst nach Bestätigung ausl Makro Workbook_Open läuft nicht
Objekt_Error - Ereignis in UserForm Problem mit OpenRecordset (Array)
bei OPEN macros vermeiden Workbook_open
change ereigniss auf userform. Click-Ereignis für Checlbox nicht ausführen?
windows.open und selection.change workbooks.open Fehlermeldung
Speichern einer Kopie durch Ereigniss Workbook_bef Reagieren auf Tastaturereignisse
Workbooks.OpenText - Datumsformat Ausnahmen für Exit-Ereignis
Probleme mit Workboos.Open