Gruppe
Menue
Problem
Wie kann ich beim Öffnen einer Arbeitsmappe über VBA prüfen, ob eine bestimmte Symbolleiste existiert?
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Dim oBas As CommandBar
On Error GoTo ERRORHANDLER
Set oBas = _
Application.CommandBars("MeineSymbolleiste")
MsgBox "Die Symbolleiste" & _
"""MeineSymbolleiste"" existiert!"
Exit Sub
ERRORHANDLER:
MsgBox "Die Symbolleiste" & _
"""MeineSymbolleiste"" existiert nicht!"
End Sub