gibt es eine Liste, der in einem benutzerdefinierten Kontextmenü zur Verfügung stehenden ID-Adressen, mit den zugehörigen Aktionen?
M.f.G.
Lutz
Sub SchalterAuflisten()
Dim inZeile As Integer
Dim cmbSchalter As CommandBarControl
inZeile = 1
For Each cmbSchalter In CommandBars("Cell").Controls
Cells(inZeile, 3) = cmbSchalter.Caption ' Aktion
Cells(inZeile, 4) = cmbSchalter.ID ' ID
inZeile = inZeile + 1
Next cmbSchalter
End Sub