die controlcombobox hab ich so angelegt:
Set oBcb = oBar.Controls.Add(Type:=msoControlComboBox)
oBcb.Caption = "Art-Nr"
With oBcb
.DropDownLines = 0
.ListHeaderCount = 0
.AddItem (""), 1
.OnAction = "Auswahl"
.Width = 0
End With
weiter gehts so. funktioniert aber überhaupt nicht, weil es index ist.
sub auswahl ()
indexartnr = Application.CommandBars("Bedarfsrechnungs_Tool").Controls("Art-Nr").ListIndex
Selection.AutoFilter Field:=1, Criteria1:=indexartnr