VBA VLookup ?

[rvt1982]

Beste Mensen,

Wie kan mij vertellen wat ik fout doe ...

Function test()

Resultaat = Sheets("Inloggen").Range("D5")
zoekwaarde = Sheets("Inloggen").Range("F5")
Zoeklocatie = Sheets("Inloggen").Range("H5:I11")


Resultaat = Application.WorksheetFunction.VLookup(zoekwaarde, Zoeklocatie, 2, False)

End Function

 

[snb]

sub M_snb()
   sheets("inloggen").cells(5,4)= sheets("Inloggen").columns(8).find(sheets("inloggen").cells(5,6),,,1).offset(,1).value
End Sub

 

[rvt1982]

Bedankt snb,

Is het ook mogelijk met de volgende verwijzingen ? gezien ik veel andere sheets gebruik .. (nu even niet in dit voorbeeld)

Resultaat = Sheets("Inloggen").Range("D5")
zoekwaarde = Sheets("Inloggen").Range("F5")
Zoeklocatie = Sheets("Inloggen").Range("H5:I11")

Alvast bedankt.

 

[Elsendoorn2134]

RVT1982.

Je functie toewijzing is niet goed. Als je een functie maakt moet je aan het einde de functie met dezelfde naam
een toewijzing doen.
In jouw geval moet
Resultaat = Application.WorksheetFunction.VLookup(zoekw......
worden
Test = Application.WorksheetFunction.VLookup(zoekw.......
Anders weet de functie niet welke waarde hij terug moet geven.
De variabele Resultaat is niet nodig.
In cel D5 zet je gewoon "=Test"


Veel Succes.

 

[rvt1982]

Thanks, stukje bij stukje komen we er...

laatste vraag, nu wil ik data uit een andere excel bestand halen, maar dit werkt helaas niet...

wat doe ik fout ? (behalve het andere bestand openen...)

De Sheet DATA zit in het bestand Data.xls
De Sheet Inloggen zit in bestand Dossier.xls

Sheets("DATA").Range("BY:BY").Find(Sheets("Inloggen").Range("F5"), , , 1).Offset(, 1).Value

 

[snb]

Zet gewoon even de namen van de resp. werkboeken ervoor.

 

[rvt1982]

Thanks :thumb: