Werte aus Combobox (als Menue) in Zelle?

Sub KategorienMenue()
Dim oBar As CommandBar
Dim oCbo As CommandBarComboBox
Dim iCounter As Integer, iCol As Integer
Set oBar = Application.CommandBars.Add("Kategorien", msoBarTop)
On Error Resume Next
oBar.Controls("Kategorie 1").Delete
oBar.Controls("Kategorie 2").Delete
On Error GoTo 0
With oCbo
Set oCbo = oBar.Controls.Add(msoControlComboBox)
oCbo.Caption = "Kategorie 2"
oCbo.Width = 180
oCbo.OnAction = "userMakro_zeigen"
For iCounter = 17 To 250
oCbo.AddItem Worksheets("Auswertung").Cells(iCounter, 29).Value
oCbo.TooltipText = "Kategorie 2"
Next iCounter
oCbo.ListIndex = 1
Set oCbo = oBar.Controls.Add(msoControlComboBox)
oCbo.Caption = "Kategorie 1"
oCbo.Width = 180
For iCounter = 1 To 250
oCbo.AddItem Worksheets("Auswertung").Cells(iCounter, 31).Value
oCbo.TooltipText = "Kategorie 1"
Next iCounter
oCbo.ListIndex = 1
End With
CommandBars("Kategorien").Visible = True
End Sub

Sub KatEinUebernehmen()
'Abfrage ob Cuser in Spalte 2 steht dann abbrechen
Dim iColumn As Integer
iColumn = ActiveCell.Column
If iColumn <> 2 Then Exit Sub
'ausgewählter Wert aus Liste in aktive Zelle übernehmen
ActiveCell.Select
ActiveCell.Value = ?
End Sub