Combobox vraagje

[Winkkie]

Goedemorgen,

Ik heb een formulier gebruikt met daar in een Tabel met 4 kolommen

Nu wil ik via een combobox uit deze tabel de gegevens halen

ik heb dit gevonden:

ComboBox1.List = Range("Diensten").Value

Echter ik wil i.p.v. de waardes uit kolom 1 de waardes van kolom 2 zichtbaar hebben.

Wie kan mij vertellen wat ik aan deze code moet toevoegen om dit voor elkaar te krijgen.



m.v.g.
Winkkie

 

[lam201]

dat kan zo

Sub UserForm_Initialize()

Dim Tbl As ListObject
Set Tbl = Sheets("Sheet1").ListObjects("Table1")

Me.ComboBox1.List = Tbl.ListColumns("Plaats").DataBodyRange.Value

End Sub

uitgangspunten:
een werkblad met de naam 'Sheet1'
op dit werkblad een Tabel (Listobject) met de naam 'Table1'
in mijn voorbeel bestaat deze uit de drie kolommen 'Naam', 'Plaats', 'Salaris'

 

[sylvester-ponte]

of zo iets Range("Diensten").offset(,1).Value

 

[Winkkie]

Dank u werkt prima beide oplossingen