Vba Code om waarde uit kolom 5 van een listbox in een txtbox te tonen

[novec]

Hallo

Ik ben weer lekker met VBA aan het spelen en kreeg het volgende niet voor elkaar en dus doe ik weer een beroep op dit fantastische forum

Ik heb een sheet waarin een tabelletje staat.

Ik heb een userform waar dit tabelletje in een list box wordt getoond.

Nu wil ik in het userform een textbox vullen met de waarde uit de 5e kolom van de geselecteerde rij in de listbox.
Als ik als gebruiker dan tevreden ben met de uitkomst kan ik die waarde vanuit de textbox opslaan in mijn sheet (Range "F2").

Ik heb een test sheetje bijgevoegd.

Dank alvast

Bekijk bijlage Waarde uit listbox.xlsm

Steven

 

[snb]

Vermijd 'rowsource'
Columnheader: false

Private Sub UserForm_Initialize()
  ListBox1.List = Blad1.ListObjects(1).DataBodyRange.Value
End Sub

Private Sub ListBox1_Change()
  If ListBox1.ListIndex > 0 Then txtAuto.Text = ListBox1.Column(4)
End Sub

 

[novec]

Geweldig.

Ik ben heel dicht bij deze oplossing geweest maar had hem niet in de initialize van e userform gezet....

Dank man!!

 

[HSV]

Moet dat geen.....

If ListBox1.ListIndex > [COLOR=#ff0000]-1[/COLOR]

...zijn?