Als Beispiel gibts in der Excel-Symbolleiste oben rechts die "Hilfe"-Combobox mit dem Standardtext: "Frage hier eingeben".
Ist so etwas realisierbar?
Dim oBar As CommandBar
Dim oBcb As CommandBarComboBox
Set oBar = Application.CommandBars.Add( _
Name:="Bedarfsrechnungs_Tool", Position:=msoBarTop, MenuBar:=False, temporary:=True)
'Menü Titel Artikelsuche
Set oBcb = oBar.Controls.Add(Type:=msoControlEdit)
oBcb.Caption = "Art-Nr"
With oBcb
.OnAction = "SuchenFinden"
End With