Dringend! Wert aus Combobox in Zelle
20.09.2002 15:21:39
Roland
folgendes Macro erzeugt mir eine Combobox in der Menüleiste:
Sub NeueCombo()
Dim cb As CommandBar
Dim combo As CommandBarComboBox
Set cb = Application.CommandBars.Add(Name:="Navigation2", temporary:=True, Position:=msoBarTop)
Set combo = cb.Controls.Add(Type:=msoControlComboBox)
With combo
.AddItem "First Item", 1
.AddItem "Second Item", 2
.DropDownLines = 3
.DropDownWidth = 75
.ListIndex = 0
End With
End Sub
Letzt stellt sich mir nur das Problem wie ich den ausgewählten Wert in eine bestimmte Zelle meines Excelsheets bekomme?
Wäre nett wenn mir jemand schnell einen Tip geben könnte.
Danke Roland