Verticaal zoeken- Woorden matchen met groep woorden met bijbehorende waarden

[ExcelGreenie]

Beste gebruikers,

Ik zou graag een oplossing willen zien voor een probleem. Ik heb een Excelbestand met aan de linkerkolom een rijtje met een reeks woorden met een bijbehorende waarde in de kolom ernaast, en aan de rechterkant een rijtje met maar één woord. Ik wil de woorden aan het rechterrijtje matchen met één exact woordje in de reeks woorden aan de rechterkant en daarmee de bijbehorende waarde eruit filteren en die naast het matchende woord aan de rechterkant plaatsen. Er zijn van elk woord in het rechterrijtje varianten in het rechterrijtje, of beter gezegd zinsvarianten, maar alle bijbehorende waarden moeten gefilterd worden en in één cel achter het woord in het rechterrijtje gezet.

Zie voorbeeld voor verduidelijkinh.

Alvast bedankt.

ExcelGreenieBekijk bijlage voorbeeld excel.xlsxBekijk bijlage voorbeeld excel.xlsxBekijk bijlage voorbeeld excel.xlsx

 

[peter59]

Hallo,

Dat kan heel eenvoudig met de filterfunctie van Excel (zie blad1 van voorbeeld) of via een draaitabelletje met slicer (zie blad3 van voorbeeld)

Mvg
Peter

 

[VenA]

Met een UDF kan je de gegevens achter elkaar krijgen.

Function VenA(r As Range, zw As String)
ar = r
For j = 1 To UBound(ar)
    If InStr(1, ar(j, 1), zw) Then VenA = VenA & ar(j, 2) & ";"
Next j
If Len(VenA) > 0 Then VenA = Left(VenA, Len(VenA) - 1) Else VenA = ""
End Function

 

[sylvester-ponte]

en als je hem hoofdletter ongevoelig wil maken dan verander je:

If InStr(1, ar(j, 1), zw) Then VenA = VenA & ar(j, 2) & ";"

in

If InStr(1, Lcase(ar(j, 1)), Lcase(zw)) Then VenA = VenA & ar(j, 2) & ";"

 

[HSV]

Of:

If InStr(1, ar(j, 1), zw[SIZE=4][COLOR=#ff0000], 1[/COLOR][/SIZE]) Then VenA = VenA & ar(j, 2) & ";"

 

[sylvester-ponte]

Harry, da's veel mooier :thumb:

 

[ExcelGreenie]

Beste mensen, erg bedankt voot de reacties! ik zal snel laten weten.of het is gelukt.

groeten Excelgreenie