Abfragen, ob eine bestimmte Menüleiste vorhanden ist

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. Dieses Makro funktioniert nur bis zur Excel-Version 2003. Ab Excel 2007 ist die XML-basierte Multifunktionsleisete implementiert. Umfassende Erläuterungen finden Sie die diesem Tutorial.

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