VERT.ZOEKEN op basis van Actieve cell

[Friend]

Beste Forummers,

Is het ook mogelijk om verticaal te zoeken op de actieve cel waar je op staat en dan het resultaat in een vaste cel te geven.

In de bijlage een klein voorbeeld.

Thanks

Friend

 

[VenA]

Dat kan alleen met VBA

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Intersect(Target, Range("C6:C10")) Is Nothing Then Exit Sub
  Dim r As Range
  Set r = Sheets("namen").Columns(1).Find(Target.Value, , xlValues, xlWhole)
  If Not r Is Nothing Then Range("G2") = r.Offset(, 1).Value
End Sub

 

[Friend]

VenA,

Heel hartelijk dank voor je reactie:thumb:

Dat werkt super Blij mee.

Alleen jouw oplossing brengt gelijk een andere vraag bij mij boven :

Is het ook mogelijk als ik waar dan ook op rij 6 staat hij kijkt naar C6 en die naam in G2 zet (enz)

Ik had de vraag misschien eerder zo moeten stellen maar door jouw oplossing, die prachtig werkt, zie ik opeens een verfijn moment.

Maar sowieso hartelijk dank voor de reeds gegeven oplossing.

Friend

 

[emields]

ja; dat kan zo.

 

[Friend]

Emields,

Hartelijk dank voor je reactie:thumb:

Dat is het helemaal

Thanks

Friend

 

[emields]

Graag gedaan.
ps. vergeet niet de vraag als opgelost te zetten in uw eerste post.