Excel und VBA: Formeln, Programmierung, Lösungen

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