Ist ein Menüpunkt vorhanden ("Extras")
Function Menüpunkt_vorhanden(Bezeichnung) As Boolean
Menüpunkt_vorhanden = False
For Each MNU In Application.CommandBars _
("Worksheet Menu Bar").Controls
If UCase(MNU.Caption) = UCase(Bezeichnung) Then
Menüpunkt_vorhanden = True
Exit Function
End If
Next MNU
End Function
'Ist der Menüpunkt "Extras" vorhanden ?
Sub Testen()
MsgBox Menüpunkt_vorhanden("E&xtras")
End Sub
Ist ein Menüeintrag vorhanden ("Extras" - "Optionen")
Function Menüeintrag_vorhanden(SubMenü, Bezeichnung) As Boolean
Menüeintrag_vorhanden = False
For Each MNU In Application.CommandBars _
("Worksheet Menu Bar").Controls(SubMenü).Controls
If UCase(MNU.Caption) = UCase(Bezeichnung) Then
Menüeintrag_vorhanden = True
Exit Function
End If
Next MNU
End Function
'Ist der Menüeintrag "Optionen..." unter "Extras" vorhanden ?
Sub Testen()
MsgBox Menüeintrag_vorhanden("E&xtras", "&Optionen...")
End Sub
|