Gruß, Holger
Private Sub Workbook_Open()
Dim Steuerelement As CommandBarPopup
Set Steuerelement = Application.CommandBars("MeineSymbolleiste").Controls.Add(Type:=msoControlPopup)
With Steuerelement
.Type = msoControlSplitButtonPopup
End With
End Sub