Gruppe
Menue
Problem
Wie kann ich die Menüpunkte des eingebauten Zellkontextmenüs komplett entfernen und eigene Menüpunkte einfügen.
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