Kontextmenü Makro funzt nicht :(
Thomas
ich würde gern ein paar Butten in das Kontextmenü rechte Maustaste verlegen und komme da nicht weiter. Habe diesen Code gefunden nur bekomme ich das nicht zum laufen was an meiner Version wohl liegen könnte.
Sub ZellkontextmenüErgänzen()
Dim MB As CommandBarControl
Set MB = Application.CommandBars("Cell").Controls.Add(temporary:=True)
With MB
.Caption = "Test"
.OnAction = "MeinMakro"
.FaceId = 51
End With
End Sub
Sub MeinMakro()
MsgBox "Hurra, es hat geklappt !"
End Sub
Gruß Thomas aus Stuttgart