Opgelost Enkel nummers weergeven die voldoen aan voorwaarde in één cel naast elkaar

[lecomtni]

Beste,

Ik probeer uit een lijst enkel nummers te krijgen die voldoen aan een voorwaarde.
Deze dienen naast elkaar te staan afhankelijk van de datum (Zie E en F)

Zou iemand die formule kunnen maken?
Alvast heel veel dank.

 

[emields]

't Zal wel aan mij gelegen zijn maar ik begrijp er niets van.

 

[peter59]

Is dit een beetje wat je bedoeld?

 

[JEC.]

=LET(z;B2:B19;y;A2:A19;DROP(REDUCE("";UNIQUE(z);LAMBDA(a;b;VSTACK(a;HSTACK(b;TEXTJOIN(" - ";;FILTER(y;z=b))))));1))

 

[AlexCEL]

Heel mooi als je de tabel in 1x wilt krijgen.

Hierbij ook nog een (iets simpelere) optie mijnerzijds, met 2 formules.

 

[JEC.]

Draaitabel kan ook nog

 

[HSV]

Ook nog.

=LET(x;UNIEK(B2:B19);HOR.STAPELEN(x;MAP(x;LAMBDA(r;TEKST.COMBINEREN(" - ";;FILTER(A2:A19;B2:B19=r))))))

Eng:

=LET(x;UNIQUE(B2:B19);HSTACK(x;MAP(x;LAMBDA(r;TEXTJOIN(" - ";;FILTER(A2:A19;B2:B19=r))))))

 

[snb]

Duitje:

Sub M_snb()
    sn = Sheet1.Cells(1).CurrentRegion
    
    With CreateObject("scripting.dictionary")
        For j = 1 To UBound(sn)
          If sn(j, 1) <> "" Then .Item(Format(sn(j, 2))) = Replace(Trim(.Item(Format(sn(j, 2))) & " " & sn(j, 1)), " ", "_")
        Next
        
        Sheet1.Cells(2, 5).Resize(.Count, 2) = Application.Transpose(Array(.keys, .items))
    End With
End Sub

 

[lecomtni]

Bedankt voor de reacties, ik kan zeker verder nu.