Vlookup meerdere waardes,

[aapje10]

Beste,

Ik heb een vraag mbt de vlookup functie die nu meerdere waardes zou moeten kunnen zoeken.
In bijgevoegd bestand zie je dat aan kolom B meerdere waardes gekoppeld zitten in kolom C.
Nu wil ik eigenlijk in een andere sheet, 2 in dit geval, per productcode (Kolom B) de daaraan gekoppelde waarde apart in kolommen hebben.
Het gaat om maximaal 4 kolommen omdat er ook maximaal 4 verschillende waarde kunnen voorkomen.

Alvast bedankt,

 

[Timshel]

Voeg een nieuw werkblad 2 in en draai onderstaande code.

Option Explicit

Sub tsh()
    Dim Br, Bq, Bs
    Dim i As Long, j As Long
    
    ReDim Bq(4)
    Br = Sheets("BRZO").UsedRange
    With CreateObject("Scripting.Dictionary")
        .Item(0) = Array("loar_aid", "Check", "", "", "", "")
        For i = 2 To UBound(Br)
            If IsError(Application.Match(Br(i, 3), Bq, 0)) Then
                Bq(j) = Br(i, 3)
                j = j + 1
            End If
            Bs = .Item(Br(i, 2))
            If IsEmpty(Bs) Then
                ReDim Bs(5)
                Bs(0) = Br(i, 2)
            End If
            Bs(Application.Match(Br(i, 3), Bq, 0)) = Br(i, 3)
            .Item(Br(i, 2)) = Bs
        Next
        Sheets(2).Cells(1, 1).Resize(.Count, 6) = Application.Index(.Items, 0)
    End With
End Sub

 

[aapje10]

Heeft even geduurd maar werlt prima, bedankt.