Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Prüfung, ob eine Symbolleiste existiert

Gruppe

Bar

Problem

Wie kann ich beim Öffnen einer Arbeitsmappe über VBA prüfen, ob eine bestimmte Symbolleiste existiert?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

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

    

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