Abfragen, ob eine bestimmte Menüleiste vorhanden ist

300001 (Excel 2003)



Mit diesem Makro kann per VBA abgefragt werden, ob eine bestimmte Menüleiste vorhanden ist.

In diesem Fall wird abgefragt, ob die Menüleiste Extras vorhanden ist.

 

Sub IstVorhanden()

Dim Ctrl As CommandBarControl

Dim Txt$

Dim Schalter As Boolean

Txt = "E&xtras"

For Each Ctrl In Application.CommandBars("Worksheet Menu Bar").Controls

If Ctrl.Caption = Txt Then

Schalter = True

End If

Next Ctrl

If Schalter = True Then

MsgBox "Menüleiste ist vorhanden"

Else

MsgBox "Menüleiste ist nicht vorhanden"

End If

End Sub

In diesem Beitrag sehen Sie die entsprechenden Menübezeichnungen.