ich habe in einer Datei im Kontextmenue, einige Befehle deaktiviert und mit einige anderen Befehlen erweitert.
z.B. das ändern der Hintergrundfarbe der aktiven Zelle
With CommandBars("Cell").Controls.Add(Type:=msoControlPopup)
.BeginGroup = True 'Trennlinie
On Error GoTo 0
.Caption = "Hintergrundfarbe"
'erster Menüpunkt
With .Controls.Add
.FaceId = 1691
.Caption = "Gelb"
.OnAction = "Hintergrund_gelb"
End With
With .Controls.Add
.BeginGroup = True 'Trennlinie
.FaceId = 1691
.Caption = "Gelb löschen"
.OnAction = "Hintergrund_ohne"
End With
End With
Sub Hintergrund_gelb()
ActiveCell.Interior.ColorIndex = 6
End Sub
Sub Hintergrund_ohne()
ActiveCell.Interior.ColorIndex = xlNone
End Sub
klappt einwandfrei (diesen Makro habe ich aus dem Forum)
Nun soll dieser Befehl im Kontextmenue aber nur in der Spalte L aktiviert sein, in allen anderen deaktiviert.
Weiß jemand ob und wie es funktioniert ?!?!
Gruß Peter