Dem Kontextmenue derZellen ein Untermenue hinzufügen

Question

Hallo Helfer,
ich habe bereits ein AddIn, das u.a. eigene Menues in die Menueleiste einfügt. Um noch weniger die Maus benutzen zu müssen, hätte ich gerne das Kontextmenü des Tabellenblattes:" .CommandBars("Ply")" als Untermenü des ".CommandBars("Cell")"

Sub KontextmenueErgaenzen()
Dim oBtn As CommandBarButton
Set oBtn = Application.CommandBars("Cell").Controls.Add
With oBtn
.Caption = "Tab-blattkonte&xtmenue"
was gehörthier rein?
End With
End Sub

Vielen dank im Voraus
mfg
Wolfgang

Answer 1

Hallo Wolfgang,
&M1-&M4 steht nur als Name für dein Makro, also mit deinen Makronamen ersetzen.

Gruß
fedjo