Dim cb As CommandBar
    Dim c As CommandBarControl
 
    Set cb = CommandBars.Add("neu5", msoBarTop, True, False)
 
    Set c = cb.Controls.Add(msoControlButton)
 
    With c
        .Caption = "Schaltfläche"
        .Style = msoButtonCaption
    End With
 
    cb.Visible = True