wie kann ich das Kontextmenü der rechten Maustaste temporär neu belegen und auf Knopfdruck wieder in den Ausgangszustand versetzen?
Gruß Emil
Sub Kontext_ändern()
Dim c As Object
With CommandBars("Cell")
For Each c In .Controls
c.Delete
Next
Set c = .Controls.Add(1)
With c
.Caption = "surprise"
.OnAction = "Testmakro"
End With
End With
End Sub
Sub Kontext_reset()
CommandBars("Cell").Reset
End Sub
Sub Testmakro()
MsgBox "Test"
End Sub