tekstvak vullen met gezochte waarde in lijst.

[camper2500]

Beste,

Wat mij iets heel simpel leek, wil maar niet lukken:

Ik probeer in een userform enkele tekstvakken te vullen met een gezochte waarde. Volgens diverse bronnen dient dit te gebeuren met onderstaande regel.
Maar blijkbaar iets fout, want het wil maar niet lukken. Kan iemand zeggen wat ik verkeerd doe?


Sub cmdZoeken_Click()

txtDatum = Application.WorksheetFunction.VLookup(txtBonnummer, Range("Lijst"), 2, False)

End Sub

txtBonnummer is de naam van een tekstbox die ik invul.
txtDatum is de naam van een textbox die ik wil vullen.
"Lijst" is de naam van een Range

Steeds foutmelding 1004.

Alvast heel hard bedankt voor jullie hulp.

 

[rebmog]

De waarde van een tekstbox levert een string op. Aangezien je zoekt op een nummer, zul je dit eerst om moeten zetten naar een getal:

Sub cmdZoeken_Click()
   txtDatum = Application.WorksheetFunction.VLookup(CLng(txtBonnummer), Range("Lijst"), 2, False)
End Sub

 

[camper2500]

Beste Rebmog,

Wreed bedankt voor de snelle oplossing!! Ik had me nochtans gebaseerd op vele online filmpjes en lessen, daar scheen het zo altijd te werken.


Dankjewel!

Mvg