Menü am Registerblatt hinzufügen steffen Hallo in die Runde, ich möchte gern am Tabellenregister einen weiteren Menüpunkt hinzufügen, der dann einen Code ausführt hinzufügen. Könnt Ihr mir helfen? Gruß Steffen
AW: Menü am Registerblatt hinzufügen 13.10.2009 09:59:55 Josef Hallo Steffen, das geht so. ' **********************************************************************' Modul: Modul2 Typ: Allgemeines Modul' **********************************************************************Option ExplicitPrivate Const cstrMenuCaption As String = "Mein Menüpunkt"Sub createMenu() Dim objCBar As CommandBar, objCBtn As CommandBarButton Set objCBar = Application.CommandBars("Ply") Set objCBtn = objCBar.Controls.Add(msoControlButton) With objCBtn .Style = msoButtonCaption .Caption = cstrMenuCaption .OnAction = "MeinMakro" End WithEnd SubPrivate Sub deleteMenu() On Error Resume Next Application.CommandBars("Ply").Controls(cstrMenuCaption).Delete On Error GoTo 0End SubPrivate Sub MeinMakro() MsgBox "Hallo!"End Sub Gruß Sepp Anzeige