Menueleiste erstellen

habe in einer der Foren folgendes Makro entdeckt, das mir vom Aufbau gut gefallen hat. Dabei wird die Menueleiste völlig neu erstellt - allerdings immer nur mit "einem Unterbau".

Sub Menue_erstellen()

    MenuBars(xlWorksheet).Reset

    Anzahl = MenuBars(xlWorksheet).Menus().Count

    For i = 1 To Anzahl

        MenuBars(xlWorksheet).Menus(1).Delete

    Next i

        

    

    MenuBars(xlWorksheet).Menus.Add "&Test1"

    Set ml = MenuBars(xlWorksheet).Menus("Test1")

    With ml

        .MenuItems.Add Caption:="Untertest1", _

            OnAction:="aa"

        .MenuItems.Add Caption:="Untertest2", _

            OnAction:="ab"

        .MenuItems.Add Caption:="Untertest3", _

            OnAction:="ac"

    End With

    

    MenuBars(xlWorksheet).Menus.Add "&Test2"

    Set ml = MenuBars(xlWorksheet).Menus("Test2")

    With ml

        .MenuItems.Add Caption:="Untertest2", _

            OnAction:="ba"

        .MenuItems.Add Caption:="Untertest3", _

            OnAction:="bb"

        .MenuItems.Add Caption:="Untertest4", _

            OnAction:="bc"

    End With
End sub

Code eingefügt mit: Excel Code Jeanie

Nun möchte ich erreichen, dass z.B. nach "Untertest1" eine weitere Schaltfläche "Untertest1a! erstellt wird, von "Untertest2" eine weitere mit "Untertest2a" usw.

Diverse Versuche sind gescheitert.

Kann mich leider nicht verständlicher (mit Fachbegriffen) ausdrucken.

Besten Dank!

mfg
Erich