Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Call ResetContext
End Sub

StandardModule: basMain

Sub EditContext()
   Dim oBtn As CommandBarButton
   With Application.CommandBars("Cell")
      Do While .Controls.Count > 0
         .Controls(1).Delete
      Loop
      Set oBtn = .Controls.Add
   End With
   With oBtn
      .Caption = "MeinBefehl"
      .OnAction = "MeinMakro"
   End With
End Sub

Sub ResetContext()
    Application.CommandBars("Cell").Reset
End Sub

Sub MeinMakro()
   MsgBox "Makroaufruf aus dem Zellkontextmenü!"
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Menue und Context