0160-93 82 19 37 | Nehmen Sie 
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.
