Zoeken

[Boerman]

Bekijk bijlage Aandelen_vraag.xlsx

Hoe krijg ik het voor elkaar dat er een automatisch de juiste waarden bijgezocht worden van het betreffende aandeel.

Boerman

 

[sylvester-ponte]

deze functie in elkaar geknutseld:

Function ZoekAandeel(ZoekTerm As String, Zoekgebied As Range)
    Dim R As Range
    If ZoekTerm = "" Then
        ZoekAandeel = "ZoekTerm = leeg"
        Exit Function
    End If
    Set R = Zoekgebied.Find(ZoekTerm, , , xlPart)
    If R Is Nothing Then
        ZoekAandeel = "niet gevonden"
    ElseIf Len(R) - Len(ZoekTerm) <= 1 Then 'om te voorkomen dat korte namen in andere namen voor voorkomen
        ZoekAandeel = R(1, 2)
    End If
End Function

zie voorbeeld gele cellen

 

[JeanPaul28]

Zo zou het kunnen

 

[Boerman]

Bedankt voor de oplossing het werkt:d

 

[sylvester-ponte]

zoek function nog wat aangepast deze is betrouwbaarder dan mijn vorige : hier zit geen Find in en dat werkt betrouwbaarder.

Function ZoekAandeel(ZoekTerm As String, Zoekgebied As Range)
    Dim R As Range
    ZoekAandeel = ""
    If ZoekTerm = "" Then Exit Function
    ZoekTerm = LCase(ZoekTerm)
    For Each R In Zoekgebied
        If ZoekTerm = LCase(Left(R, Len(ZoekTerm))) Then
            If Len(R) = Len(ZoekTerm) Or (Len(R) - 1 = Len(ZoekTerm) And Right(R, 1) = "*") Then
                ZoekAandeel = R(1, 2)
            End If
        End If
    Next R
End Function