Meerdere waarden zoeken in tabel en met komma weergeven

[Optitune]

Voor het vullen van de nieuwe website, heb ik data uit de oude database nodig.
De oude database werkt als volgt:

art. nr Motor model
105-003 Honda CBR 600 2001
105-003 Kawasaki ZX6R 2003

Dit artikel (105-003) past dus op deze 2 motoren.
Helaas werkt de nieuwe site met de waarde als dit:

105-003 Honda CBR600 2001, kawasaki ZX6R 2003


Ik wil dus met hor.zoeken de juiste waarden achter een artikelnummer krijgen, gescheiden met een komma. Nu kom ik niet verder dan 1 waarde.

 

[WHER]

Probeer deze UDF (User Defined Function) genaamd "join1" eens.

 

[HSV]

Of in één keer met deze code.
Druk Alt+F8 en voer de code HSV uit.

Sub HSV()
Dim sq As Variant, i As Long, firstaddress As Variant, c As Variant
 With Sheets("Blad1")
   .Columns(4).Clearcontents
 sq = .Range("A3:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
   For i = 1 To UBound(sq)
    Set c = .Columns(2).Find(sq(i, 1), , xlValues, xlWhole)
     firstaddress = c.Address
 Do
   If .Cells(i + 2, 4) = "" Then
         .Cells(i + 2, 4) = c.Offset(, 1)
     Else
          .Cells(i + 2, 4) = .Cells(i + 2, 4) & ", " & c.Offset(, 1)
         End If
    Set c = .Columns(2).FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstaddress
    Next
  End With
End Sub

 

[Optitune]

Heren,

mag ik u enorm bedanken?
De tweede gaat mijn pet even te boven, maar de eerste werkt geniaal!
Bedankt, ik ga er mee verder.

 

[WHER]

Optitune,

Blij dat je geholpen bent, maar ik kan je verzekeren dat de code van Harry even "geniaal" is als de mijne en even goed werkt.