eigenes Menü bis Excel 2003

Bis zur Version Excel 2003 gibt es die Menüleiste. Mit dem nachstehenden Code von Schmitti, den ich ein wenig abgewandelt habe,  lässt sich ein eigener Menüpunkt erstellen und darunter hängen die einzelnen Menüpunkte.

Dies funktioniert mit Excel 2007 bzw. 2010 nicht mehr, da dort die Menüführung geändert wurde und stattdessen die Ribbons (Menübänder) zum Einsatz kommen. Dazu in einem anderen Blogbeitrag mehr.

Dieser Code erstellt das Menü und auch die beiden Unterpunkte Const MenueName = "&Ente Spezial" Const Befehl1 = "&Do it 1" Const Befehl2 = "&Do it 2" Sub Menü_Erstellen() 'erstellt das Menü und die Unterpunkte Dim MB As Object, MeinMenü As Object, Befehl As Object Call Menü_Löschen Set MB = CommandBars.ActiveMenuBar Set MeinMenü = MB.Controls.Add(Type:=msoControlPopup, Temporary:=True) MeinMenü.Caption = MenueName Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, ID:=1) With Befehl .Caption = Befehl1 .OnAction = "Doit1" End With Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, ID:=1) With Befehl .Caption = Befehl2 .OnAction = "Doit2" End With End Sub

Hiermit wird das Menü gelöschtSub Menü_Löschen() On Error Resume Next CommandBars.ActiveMenuBar.Controls(MenueName).Delete End Sub

Die Makros der beiden neuen Menüpunkte – in diesem Beispiel nur eine einfache Messagebox. Statt der Messagebox stellst Du hier Deinen eigenen Code ab.

Um bei jedem Start der Datei das Menü zu erstellen und beim schließen der Datei den Menüpunkt wieder zu entfernen, bekommt das Klassenmodul “Diese Arbeitsmappe” noch nachstehenden Code Private Sub Workbook_BeforeClose(Cancel As Boolean) Menü_Löschen End Sub Private Sub Workbook_Open() Menü_Erstellen End Sub

Diese beiden Einzeiler rufen beim Start das Makro Menü_Erstellen bzw. beim Beenden das Makro Menü_Löschen auf.

 Share on Facebook

Read more http://vba-codeschnipsel.de/eigenes-menu-bis-excel-2003/