Label laten kijken naar listbox

[Atwist]

Hallo,

Voor mijn userform moet een label kijken naar wat er in de listbox wordt aangeklikt.

Als a in de lijst wordt aangeklikt dan moet er in label 1 "1"komte staan en in label 2 "11".

Heb er voorbeeld bij gedaan.
Bekijk bijlage listbox&label.xls

Wie heeft er een tip.

 

[Roncancio]

Private Sub ListBox1_Click()
With ListBox1
    Label1.Caption = .ListIndex + 1
    Label3.Caption = 1 & .ListIndex + 1
End With
End Sub

Of zoeken op het werkblad.

Private Sub ListBox1_Click()
Set l = Range("A1:A10").Find(ListBox1.Value, , xlValues, xlWhole)
Label1.Caption = l.Offset(0, 1)
Label3.Caption = l.Offset(0, 2)

End Sub

Met vriendelijke groet,


Roncancio

 

[Atwist]

Hallo Roncancio,

Het werkt weer mooi:thumb:

Ik ga jou weer danken