Thema: Prüfen, ob ein Menü vorhanden ist

StandardModule: basMain

Sub MenuTest()
   Dim oCntr As CommandBarControl
   Dim bln As Boolean
   With Application.CommandBars("Worksheet Menu Bar")
      For Each oCntr In .Controls
         If oCntr.Type = msoControlButtonPopup And _
            oCntr.Caption = "MeinMenue" Then
            bln = True
            Exit For
         End If
      Next oCntr
   End With
   If bln = True Then
      MsgBox "Das Menü ""MeinMenue"" existiert!"
   Else
      MsgBox "Das Menü ""MeinMenue"" existiert nicht!"
   End If
End Sub

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