Habe ca. 25 kleine Makros die ich mit cmd Button starte. Jetzt möchte ich - aus Platzgründen - umbauen.
Ideal ist folgender Code wo das Kontextmenü (rechte Maustaste) genau nach meinen Wünschen richten kann:
...aber wohin muss ich die Makros einfügen
a.)damit es nur auf dem bestimmten Blatt und
b.) nur in der betreffenden Arbeitsmappe funktioniert
Sub Add_Action_to_Cells_Context_Menu()
Dim myCb As CommandBar
Dim myCtl As CommandBarControl
Set myCb = CommandBars("Cell")
Set myCtl = myCb.Controls.Add()
With myCtl
.Caption = "Befehlsname"
.OnAction = "Makro zum ausführen"
End With
Set myCtl = myCb.Controls.Add()
With myCtl
.Caption = "Anderer Name"
.OnAction = "Anderes Makro"
End With
End Sub
Sub Delete_Commandbars_New_Controls()
With CommandBars("Cell")
.Controls("Befehlsname").Delete
.Controls("Anderer Name").Delete
End With
Besten Dank mfg STeve