Een cel selecteren a.d.h.v. Vlookup

[Bakkerbakgraag]

Beste allemaal,
ik wil graag binnen een celbereik m.b.v. een macro een cel selecteren a.d.h.v. de functie Vlookup (of een andere als dit nodig is). Ik ben bekend met de functies "horizontaal zoeken" en "verticaal zoeken" , maar hoe ik het beschrevene kan bereiken, geen idee.
Ik heb een voorbeeldbestandje bijgevoegd.

Alvast bedankt voor jullie hulp.

 

[emields]

hier een paar mogelijkheden .met knop, bij openen blad, als de cel veranderd

 

[AHulpje]

Zonder macro, in cel B2 de volgende formule, doortrekken naar beneden:

=ALS.FOUT(VERT.ZOEKEN(B2;$I$4;1;ONWAAR);"")

Engels:

=IFERROR(VLOOKUP(B2;$I$4;1;False);"")

 

[Bakkerbakgraag]

hier een paar mogelijkheden .met knop, bij openen blad, als de cel veranderd

Ha super, dank je wel!
Ik wilde verder gaan met de eerste code, die doet precies wat ik wil. Echter wil ik in mijn bestand de datum ophalen uit een ander tabblad. Ik heb zitten rotzooien, maar ik kom er niet uit. Zou je dit in je code willen aanpassen? Ik heb wederom een voorbeeldbestand toegevoegd. Wederom alvast bedankt!

 

[HSV]

De eerste met de de datum uit het ander blad.

Sub hsv()
 Application.Goto Cells(Application.Match(Blad2.Range("d5"), Columns(2), 0), 4)
End Sub

Aangezien het om de datum van vandaag gaat kan het ook zonder blad2.

Sub hsv_2()
 Application.Goto Cells(Application.Match(CLng(Date), Columns(2), 0), 4)
End Sub

Nog maar een.

Sub hsv_3()
 Application.Goto Columns(2).Find(Blad2.Range("d5"))
End Sub

 

[peter59]

Of d.m.v. power query.
De datum =Vandaag() is hierin verwerkt dus geen extra tabblad vereist.
De "Knop" dient in dit geval voor het verversen van de tabel. Is dus in principe niet benodigd.

 

[emields]

of zo?

 

[Bakkerbakgraag]

Beste allen,

Ik heb de code van HSV gebruikt:

 Application.Goto Cells(Application.Match(CLng(Date), Columns(2), 0), 4)
End Sub

Hartstikke bedankt voor het meedenken!