HERBERS Excel-Forum - die Beispiele

Thema: Arbeitsblattmenüleiste neues Menü mit Befehlen hinzufügen

Home

Gruppe

Menue

Problem

Wie kann ich der Standardmenüleiste ein neues Menü mit Befehlen hinzufügen?

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

Private Sub Workbook_Open()
   Dim oBar As CommandBar
   Dim oPopUp As CommandBarPopup
   Dim oBtn As CommandBarButton
   Call CmdDelete
   Set oBar = Application.CommandBars("Worksheet Menu Bar")
   Set oPopUp = oBar.Controls.Add(msoControlPopup, before:=oBar.Controls.Count)
   oPopUp.Caption = "Projektstatus"
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Budget Doppelblatt"
      .OnAction = "a_bud_doppelblatt"
      .Style = msoButtonCaption
   End With
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Budget Einzelblatt"
      .OnAction = "a_bud_einzelblatt"
      .Style = msoButtonCaption
   End With
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Termin Doppelblatt"
      .OnAction = "a_doppelblatt"
      .Style = msoButtonCaption
   End With
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Termin Einzelblatt"
      .OnAction = "a_einzelblatt"
      .Style = msoButtonCaption
   End With
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Datei löschen"
      .OnAction = "Datei_platt_machen"
      .Style = msoButtonCaption
   End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Call CmdDelete
End Sub

StandardModule: basMain

Sub CmdDelete()
   On Error GoTo ERRORHANDLER
   Application.CommandBars("Worksheet Menu Bar") _
      .Controls("Projektstatus").Delete
ERRORHANDLER:
End Sub

Beiträge aus dem Excel-Forum zu den Themen Menue und PopUp

Info popup Fenster beim klicken Excel Form Kontextmenue geht nicht
Popup schließt nicht automatisch Popup
Popup stoppt ganzes Makro bis zum Schließen Zellen Kontextmenue ausfuehren
Dynamisches Kontextmenue makro per popupdropdown ansteuern
Makro für Pulldown Menue Menueeintrag einbinden
makro in kontextabhängiges Befehlsmenue Menue mit eigenen Macros versehen
Entfernen eines Eintrages im Kontextmenue Untermenue von Menueleiste
Adresszeile/Formelzeile im Menue ist weg FaceId bei Untermenue möglich?
Hilfe bei Infofenster/Popup Menue Leiste ein ausblenden
aktueller Monat als Start-Monat für Popup-Kalender Menue nur erstellen, wenn noch nicht vorhadnen
Menuebar ausblenden Wenn Datum erreicht Popup
2003 Menuepunkte in 2007 finden Kontexmenue
CommandBarPopup (faceID) PopUp farbig darstellen
Menü Popup/Button Beschriftung Filter als Dropdown-Menue in neuem Tabellenblatt
Menue Popup mit Excel wenn Datum erreicht
Eigenes Formatierungsmenue Popup mit Button
Kontextmenue Autofilter, polldown Menue in Fragmenten?
Drop down Menue Excel Menues mit Bildern
Pfeil im Drop-Down-Menue dauerhaft Drop Down Menue in Zelle
Abhängige Drop-Down-Menues Mehrere Untermenues + Application.caller() Problem
Menue - Makro editieren Problem mit Popup-Symbolleiste
Popup mit Abstand zur Zelle erscheinen lassen Menueleiste zerschossen
Menueerweiterung um Bildchens Pulldown Menueeintraege disablen enablen?
PopUp nur bei bestimmten Benutzer Menueleiste "Überarbeiten" nie anzeigen !
Popup-Symbolleiste über Button schliessen Kalender: Wahl-Datum aus Popup-Fenster einlesen