Thema: Abfrage, ob ein Menü in einer Menüleiste vorhanden ist

StandardModule: basMain

Sub IstVorhanden()
   Dim oPopUp As CommandBarControl
   Dim sPopUp As String
   Dim bln As Boolean
   sPopUp = "E&xtras"
    For Each oPopUp In Application.CommandBars _
        ("Worksheet Menu Bar").Controls
        If oPopUp.Caption = sPopUp Then
            bln = True
            Exit For
        End If
    Next oPopUp
    If bln = True Then
        MsgBox "Menü " & sPopUp & " gefunden"
    Else
        MsgBox "Menü " & sPopUp & " nicht gefunden"
    End If
End Sub

Beiträge aus dem Excel-Forum zu den Themen Menue und PopUp