✔ Kontext-Untermenü erweitern

[Outsider77]

Hallo,
ich habe mittels VBA das bestehende Kontext-Menü in Excel 2007
ein klein wenig erweitert.
Das heißt:
Bei einer bestimmten Anzahl selektierter Zellen erscheint ein neuer Eintrag.
Dieser lautet Auswahl verschieben nach.
Die Unter-Punkte von Auswahl verschieben nach sind:
Spalte 1
Spalte 2
Spalte 3
Spalte 4
Spalte 5
Spalte 6

Bis hierher hab ich das folgendermaßen gelöst:

With CommandBars("Cell").Controls.Add(Type:=msoControlPopup)
    .BeginGroup = True
    On Error GoTo 0
    .Caption = "Auswahl verschieben nach"
    
        For a = 1 To 6
            With .Controls.Add
                .Caption = "Spalte" & a
                .OnAction = "verschieben_spalte" & a
            End With
        Next a
End With

Jetzt kann es vorkommen, dass ich zur Laufzeit den Unter-Punkt Spalte1 erweitern muß.
Ich habe es auf folgendem Weg probiert, leider ohne Erfolg:

With CommandBars("Cell").Controls("Auswahl verschieben nach").Controls("Spalte1").Controls.Add(Type:=msoControlPopup)
     With .Controls.Add
         .Caption = "Bereich1"
         .FaceID = 343
         .OnAction = "bereich_1
     End With
End With

Wie oben schon erwähnt tut sich aber leider nichts.
Kann mir bitte jemand sagen, wie es es richtig machen muß?
Und vielleicht noch einen Tipp geben, wie ich außer Bereich1
noch weitere Unter-Menüs von Spalte 1 erzeugen kann?

Danke für die Hilfe!
Gruß Outi

 

[Outsider77]

OK, Lösung selber gefunden.
Bei Interesse bitte anschreiben!