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