Vertikaal zoeken met Combobox

[Noord2011]

Beste mensen,

Ik wil met een Combobox cellen invullen.
Als ik de naam kiest dient de leeftijd en het uren ingevuld worden in de cellen E6 en E7.

Alvast bedankt

Zie bijlage

 

[Warme bakkertje]

Zet onderstaande in de bladmodule van Sheet1

Private Sub ComboBox1_Change()
With Sheets("Sheet2").Columns(3)
    [E6].Resize(2) = WorksheetFunction.Transpose(.Find _
        (ComboBox1.Value, , xlValues, xlWhole).Offset(, 1).Resize(, 2))
End With
End Sub

 

[HSV]

Of met een gewone formule.

Zet achter LinkedCell van de Combobox eigenschappen D4.
Nu is de combobox gekoppeld aan cel D4.
Dan onderstaande formule in E6, en doorvoeren naar onderen.

=VERT.ZOEKEN($D$4;Sheet2!$C$6:$E$9;RIJ()-4;0)