collectie aan combobox toevoegen ?

[sylvester-ponte]

hallo

weet iemand een eenvoudige manier om een collectie aan een combobox te koppelen?

met een array gaat het een voudig met :
combo.list()=myArray

maar kan zoiets ook met een collection?
de collection bevat alleen teksten.
of is er een eenvoudige truck om van een collection een array te maken ?

groet sylvester

 

[danny147]

Beste sylvester-ponte

Wil je een reeks namen uit een lijst aan een ComboBox toevoegen ?

Groetjes Danny.:thumb:

 

[HSV]

bv.

combo.list = UsedRange.Columns(1).Value

 

[cow18]

Sub Collection2Array()
  Dim Arr() As Variant, Coll As New Collection, i As Integer

  For i = 1 To 10
    Coll.Add i, CStr(i)                                    'gewoon wat elementen toevoegen in die collection
  Next

  ReDim Arr(1 To Coll.Count)                               'dimensioneer array aan de hand van je collection
  For i = 1 To UBound(Arr)
    Arr(i) = Coll(i)                                       'kopieer collection naar array
  Next

  Blad1.ComboBox1.List = Arr                               'array naar combobox (hier in een blad)
End Sub

 

[sylvester-ponte]

die van cow ga ik toepassen:thumb:

bedankt allemaal

groet sylvester