Vert.zoeken in een tabel in meerdere rijen

[jbeetje]

Wie oh wie kan mij, voor vele misschien een simpel probleem, de oplossing geven.

Ik wil dmv vert.zoek functie in een tabel in meerdere rijen zoeken.
Helaas zoekt de functie bij mij alleen in de eerste kolom.
Kan mij iemand vertellen wat ik verkeerd doe.
ik heb een voorbeeld bijgevoegd.
In Blad 1 staan postcode en Blad 2 heb ik de zoekfunctie
Alvast dank

Jbeetje

 

[Cobbe]

Met deze UDF is dat goed te doen:

Public Function zoek(cel)
  zoek = Sheets("Blad1").Cells.Find(cel.Value).Offset(, 1)
End Function

aanroepen als:

=ALS(A6="";"";zoek(A6))

 

[sylvester-ponte]

Function Afstand(Postcode, Tabel As Range)
    Dim R As Range
    If Postcode = "" Then Afstand = "": Exit Function
    Set R = Tabel.Find(Postcode, , , xlWhole)
    If R Is Nothing Then
        Afstand = "niet gevonden"
    Else
        Afstand = R(1, 2)
    End If
End Function

 

[jbeetje]

Allebei vriendelijk bedankt.

Function Afstand(Postcode, Tabel As Range)
    Dim R As Range
    If Postcode = "" Then Afstand = "": Exit Function
    Set R = Tabel.Find(Postcode, , , xlWhole)
    If R Is Nothing Then
        Afstand = "niet gevonden"
    Else
        Afstand = R(1, 2)
    End If
End Function

 

[jbeetje]

Allebei vriendelijk bedankt.

Hier ga ik mee aan de slag
Nogmaals bedankt
Jbeetje