Listbox met 2 kolomen, waarde kolom 2 naar cell brengen

[MarcoApeldoorn]

Hoi,

Heb een formulier met een listbox gemaakt waarin 2 kolomen staan.

Private Sub cmdOK_Click()
Unload Me
End Sub

Private Sub ListBox1_Click()

ActiveCell.Value = ListBox1.Value
    
End Sub

De actieve cell is D3, de waarde uit de eerste kolom komt ook netjes in cell D3
Nu moet C3 gevuld worden met de geselecteerde waarde uit de 2e kolom van de listbox

Kan iemand me in de richting zetten?

Alvast bedankt

Marco

 

[Janzwart]

Dit kun je doen met vert.zoeken.

 

[HSV]

Test het eens.

with ActiveCell
    .Value = ListBox1.Value
    .offset(, -1) = listbox1.column(1)
end with

 

[MarcoApeldoorn]

Thanks, heb het werkend.