Hallo,

ich möchte unter Windows 10 bei Excel2019 eine eigene Symbolleiste mit eigenen Menüpunkten und Untermenüs hinzufügen

mittels VBA. Ich habe dazu über  "Optionen" --> "Trust Center", --> Einstellungen für das Trust Center unter Makroeinstellungen

"Alle Makros aktivieren" ausgewählt, Zugriff auf das VBA ProjektObjektmodell gegeben

und folgenden Code verwendet:

<Code>

Sub AddNeueSymbolleiste()
   Dim oCmdBar As CommandBar
   Dim oPopUp As CommandBarPopup
   Dim oBtn As CommandBarButton
   'Call DeleteNewMenueBar ' für den Fall dass es vorher nicht komplett geklappt hat einschalten
   Set oCmdBar = Application.CommandBars.Add(Name:="Kapitel2", _
      Position:=msoBarTop, MenuBar:=True, temporary:=False)
         Set oCmdBar = Application.CommandBars.Add(Name:="Kapitel2", _
      Position:=msoBarTop, MenuBar:=True, temporary:=False)
        Set oPopUp = oCmdBar.Controls.Add(Type:=msoControlPopup)
   oPopUp.Caption = "1Krefte"
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Formular_erstellen"
      .Style = msoButtonCaption
   End With
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Testdaten"
      .Style = msoButtonCaption
   End With
    Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Auswertung"
      .Style = msoButtonCaption
   End With
   
   Set oPopUp = oCmdBar.Controls.Add(Type:=msoControlPopup)
   oPopUp.Caption = "Tragwerke"
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Formular_erstellen"
      .Style = msoButtonCaption
   End With
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Resultierende"
      .Style = msoButtonCaption
   End With
    Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Bestimmung_der_Stabkraefte"
      .Style = msoButtonCaption
   End With
   
      Set oPopUp = oCmdBar.Controls.Add(Type:=msoControlPopup)
   oPopUp.Caption = "Biegetraeger"
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Starteingaben"
      .Style = msoButtonCaption
   End With
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Diagramme"
      .Style = msoButtonCaption
   End With
    Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Loesche_Diagramme"
      .Style = msoButtonCaption
   End With
     CommandBars("Kapitel2").Visible = True
     Application.CommandBars("Kapitel2").Enabled = True
   oCmdBar.Visible = True
End Sub

</Code>

Leider passiert überhaupt nichts. Es wird keine neue Symbolleiste mit Menü angezeigt, obwohl der Code fehlerfrei durchläuft.
Hat jemand eine Idee woran das liegt? Wenn ich ihn ausgeführt habe, ergibt sich allerdings eine Fehlermeldung, beim Versuch eine Symbolleiste mit dem gleichen Namen hinzuzufügen.

Wenn ich versuche das Ganze manuell zu machen unter "Menübandanpassung", kann ich zwar die Symbolleiste mit drei Gruppen erstellen,

aber zum einen keine Untergruppen bilden, zum anderen nur bekannte Befehle hinzufügen, keine eigenen. Das hilft mir also nicht.

Danke

Thommy7571