AddIn Menu

Private Sub workbook_addininstall()
RegisterAddIn_erweitern
End Sub
Private Sub workbook_addinuninstall()
MenueintragLoeschen
End Sub

Option Explicit
Const MenüEintrag_1 = "Funktion_1 "
Const MenüEintrag_2 = "Funktion_2 "
Sub RegisterAddIn_erweitern()
Dim cb As CommandBar
Dim cbc As CommandBarControl
Dim cbcc As CommandBarButton
Set cb = Application.CommandBars.ActiveMenuBar
Set cbc = cb.Controls("Extras")     '"Extras" = Register "Add-Ins" für Excel2010 ff
Set cbcc = cbc.Controls.Add
With cbcc
.Caption = MenüEintrag_1
.OnAction = "ErsteFunktion "
.FaceId = 71  '1813
End With
Set cbcc = cbc.Controls.Add
With cbcc
.Caption = MenüEintrag_2
.OnAction = "ZweiteFunktion "
.FaceId = 72   '18751
End With
End Sub
Sub MenueintragLoeschen()
On Error Resume Next
With Application.CommandBars.ActiveMenuBar.Controls("Extras")
.Controls(MenüEintrag_1).Delete
.Controls(MenüEintrag_2).Delete
End With
On Error GoTo 0
End Sub