Contextmenü mit variabler enable option
Franz
ich möchte gerne erreichen, dass wenn ich eine bestimmte Tabelle anfahre der Menü-Punkt "FILM_abspielen" nicht aktivierbar ist, eventuell mit " .Enabled = False" .
Wer kann mir helfen?
Sub NeuesKontextMenü()
'CommandBars("Cell")
Dim m As CommandBarButton
With CommandBars("Cell")
Do While .Controls.Count > 0
On Error Resume Next
.Controls(1).Delete
Loop
Set m = .Controls.Add(msoControlButton)
With m
.Caption = "VOLLTEXTSUCHE starten"
.OnAction = "AlleTreffer_auflisten_oder_solo"
End With
Set m = .Controls.Add(msoControlButton)
With m
.Caption = "FILM abspielen"
.OnAction = "FILM_anschauen"
.Enabled = True
End With
End With
End Sub
Die Liste ist natürlich länger.
Tschüss!
Franz D.
Anzeige