Werte aus Combobox (als Menue) in Zelle?
Kersten
Ich habe mir eine Werkzeug- bzw. Menueleiste gebaut bestehend aus zwei Comboboxen.
Diese Comboboxen werden auch gefüllt.
Wenn ich nun einen Wert aus einer Combobox wähle soll diese in die aktive Zelle übertragen werden.
Ich habe nachfolgenden Code geschrieben. Da wo die Fragezeichen sind komme ich nicht weiter.
Wer kann mir bitte helfen.
Danke
######## Erstellen der Menueleiste mit zwei Comboboxen ###########
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
########### Auslesen der Combobox und in altive Zelle übernehmen ########
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
Anzeige