Prüfen ob ein Menüeintrag vorhanden ist

30.05.2002

 

Vor dem Zugriff auf einen Menüpunkt sollte geprüft werden
ob dieser überhaupt vorhanden ist:

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