VB Combobox vullen met range

[Geoffcel]

Beste lezer,

Wellicht een simpele vraag maar ik ben al de hele ochtend bezig.

Ik wil een userform gebruiken met een combobox.
De keuze uit de combobox moet gevuld worden met gegevens van een andere sheet. Omdat deze gegevens wellicht nog uitgebreider worden lijkt het me handig om een indirecte verwijzing te maken zodat andere mensen ook de comboboxen kunnen uitbreiden.

Blad indelingen:
Range a1 tot a4 staan gegevens die in de combobox moeten. Met rekening houden dat het misschien nog wel a5 en a6 erbij moeten.

Wat ik dacht is in b1 de cellen neer zetten die in de combobox moeten dus A1:A4. zodat andere mensen in de toekomst A5 vullen en dat ze in B1 dan A1:A5 neerzetten, dat wordt wel gesnapt.

Vervolgens dacht ik dat ik de combobox zo kon vullen
Combobox1.list = Sheets("indelingen").range(range("B1").value).value)

Dit werkt echter nog niet

Kan iemand mij helpen? :d

 

[HSV]

Zonder het invullen van B1.

Private Sub UserForm_Initialize()
  With Sheets("indelingen")
   ComboBox1.List = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
  End With
End Sub

 

[Geoffcel]

Hoi Harry,

Weer bedankt voor je hulp! Is precies wat ik bedoel