Dim btnHTML As CommandBarButton 
Const commandbarName$ = "TabZuHtml"
 
Private Sub Form_Load()
Dim elAppl As Object  'As EXCEL.Application
 
  Err.Clear
  If elAppl Is Nothing Then
    Set elAppl = CreateObject("Excel.Application")
    If Err.Number <> 0 Then
      MsgBox "Konnte keine Verbindung zu Excel herstellen !", _
             vbOKOnly + vbCritical
      Exit Sub
    End If
  End If
    Dim symbolLeiste As CommandBar
    Dim neueSymbolleiste As CommandBar
    'On Error GoTo ende
    'Prüfen, ob Symbolleiste schon vorhanden ist:
    For Each symbolLeiste In Application.CommandBars
      If symbolLeiste.Name = commandbarName$ Then
        GoTo ende
      End If
    Next
    'Neue Symbolleiste erstellen:
    Set neueSymbolleiste = Application.CommandBars.Add _
        (Name:=commandbarName$)
      neueSymbolleiste.Visible = True
      neueSymbolleiste.Position = msoBarTop
    'Buttons zur Leiste hinzufügen:
    Set btnHTML = neueSymbolleiste.Controls.Add _
        (Type:=msoControlButton)
      With btnHTML
        .Style = msoButtonIconAndCaption
        .Caption = "To HTML"
        .ToolTipText = "zu_html"
        .FaceId = 790
        .BeginGroup = True
        .OnAction = "TO_HTML"
      End With
    End
    Exit Sub
ende:
    MsgBox "Die Symbolleiste " & Chr(34) & commandbarName$ & _
        Chr(34) & " ist bereits vorhanden !"
        End
End Sub