Letat efter koden men hittar den inte!

Jag vill kopiera Text och itemdata till en annan combobox.

Jag vet listindex och itemdata på Combo1 och vill ha den infon till combo2

Är det så här du menar?
<code>
Dim Index As Long
Index = 3
Combo2.AddItem Combo1.List(Index)
Combo2.ItemData(Combo2.NewIndex) = Combo1.ItemData(Index)
</code>

Perfekt, tack!

Combo2.AddItem Combo1.List(Combo1.ListIndex)
Combo2.ItemData(Combo2.NewIndex) = Combo1.ItemData(Combo1.ListIndex)