Verticaalzoeken in VBA

[lam201]

Hi,

ik krijg telkens de volgende melding in mij bestand:
unable to get the vlookup property of the worksheetfunction class

Dit gebeurt bij het uitvoeren van de volgende code:

Private Sub CommandButton1_Click()

Dim myrange

Set myrange = Worksheets("test").Range("A:B")

x = Application.WorksheetFunction.VLookup(TextBox1, myrange, 2, 0)

TextBox2.Text = x

End Sub

Ik wil dmv een vba code een waarde opzoeken in kolom A:B van werkblad met de naam 'test'.
de gevonden waarde moet dan worden weergegeven in textbox2.Bekijk bijlage vlookup.xlsm
Iemand enig idee wat ik fout doe?

 

[Roncancio]

De waarde van textbox1 is een getal maar wordt gezien als tekst.
Je moet dus Val(Textbox1) gebruiken.
Ook zou ik myrange definiëren als range.

Private Sub CommandButton1_Click()

Dim myrange As Range

Set myrange = Worksheets("test").Range("A:B")

TextBox2.Text = Application.WorksheetFunction.VLookup(Val(TextBox1), myrange, 2, 0)

End Sub

Met vriendelijke groet,


Roncancio

 

[lam201]

Hmm.. zo simpel dus.

Roncancio, bedankt voor de oplossing.


Lambert