synchroniseren listboxen En textbox

[Hans Gorter]

In bijgaand bestand staan drie kolommen, twee listboxen en een tekstbox.

Bedoeling is dat als je in listbox1 over item A scrollt je meteen in listbox 2 item 1 ziet en in textbox de waarde tekst1 is te zien. Kortom: als je in listbox1 een regel verspringt, verspringen listbox2 en textbox diezelfde regel. Een soort synchroonzwemmen dus ;-)

Wie o wie weet de oplossing?

Vast dank!

 

[Warme bakkertje]

Dit is een mogelijke oplossing

Private Sub ListBox1_Change()
    ListBox2.ListIndex = ListBox1.ListIndex
    TextBox1.Text = WorksheetFunction.VLookup(ListBox1.Value, [Blad1!G1:K10], 5, False)
End Sub

 

[Hans Gorter]

Dit is een mogelijke oplossing

Private Sub ListBox1_Change()
    ListBox2.ListIndex = ListBox1.ListIndex
    TextBox1.Text = WorksheetFunction.VLookup(ListBox1.Value, [Blad1!G1:K10], 5, False)
End Sub

Enorm bedankt! Heb het uiteindelijk zo opgelost waardoor je kunt scrollen in list1 of 2.

Private Sub ListBox1_Change()
Dim lList As Long
lList = Me.ListBox1.ListIndex

Me.ListBox2.ListIndex = lList
Me.TextBox1.Text = Sheets(1).Cells(lList + 1, "K").Value

End Sub


Private Sub ListBox2_Change()
Dim lList As Long
lList = Me.ListBox2.ListIndex

Me.ListBox1.ListIndex = lList
Me.TextBox1.Text = Sheets(1).Cells(lList + 1, "K").Value

End Sub