Private Sub Befehl0_Click()
 
'Ist ein Menü vorhanden?
If BarFind("myMenu") = True Then
    'Menü ist vorhanden, lösche Menü
    CommandBars("myMenu").Delete
End If
 
'Neues Menü anlegen
Set CreaBar = CommandBars.Add("myMenu", msoBarPopup, False, False)
 
If BarFind("myMenu") = True Then
 
  Set CreaBar = CommandBars("myMenu")
  With CreaBar
      'Einträge hinzufügen--
      .Controls.Add msoControlButton, 1, , , True
      .Controls.Add msoControlButton, 1, , , True
 
      'Eigenschaften Menüeintrag 1
      .Controls(1).Caption = "Test1"
      .Controls(1).Parameter = "1"
      .Controls(1).OnAction = " ' Menüklick ""ein Übergabe Text""' "
 
      'Eigenschaften Menüeintrag 2
      .Controls(2).Caption = "Test2"
      .Controls(2).OnAction = "MenuClick"
      .Controls(2).Parameter = "2"
  End With
End If
End Sub

Public Function MenuClick(Optional sParameter As String)
MsgBox "Test: " & sParameter
End Function
 
Public Function BarFind(CreaName As String) As Boolean
    BarFind = False
    For Each CreaBar In CommandBars
        If CreaBar.Name = CreaName Then
            BarFind = True
        End If
    Next CreaBar
End Function