Eigenes Menü erstellen funktioniert nicht
20.10.2014 14:31:27
ben
Ich will in Excel mein Menü erweitern, sobald die Tabelle geöffnet wird. Das hat auch schon funktioniert, aber seit heute nicht mehr. Auf einem anderen Rechner funktioiniert das immer noch wie gehabt.
Ich vermute, dass an meinen Exceleinstellung irgendetwas nicht stimmt, könnte aber nicht herausfinden was. Kann mir da wer helfen?
Besten Dank im Voraus.
Gruß Ben
---------------------------------------
Sub MenueErweitern()
Dim MenueNeu As CommandBarControl
Dim Mb As CommandBarControl
Application.CommandBars.AdaptiveMenus = False
Menue_Name = "Erweiterung"
Set MenueNeu = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, Temporary:=True)
MenueNeu.Caption = Menue_Name
Set Mb = MenueNeu.Controls.Add(Type:=msoControlButton)
Mb.Caption = "ABC"
Mb.OnAction = "EFG"
End Sub
Anzeige