Waardes zoeken en weergeven als tekst

[Edko]

Hallo,
Ik wil in een cel meerdere waardes als tekst weergeven die horen bij een gegeven.
In het voorbeeldbestandje wil ik dus op Blad 'Inhoud voor CSV' in kolom B de schoenmaten als tekst weergeven die bij de waarde horen in kolom A.
Dus Schoen-1 heeft in Blad 'Stock-info' meerdere maten en deze wil ik als tekst weergegeven hebben in 1 cel.
Met VERTICAAL.ZOEKEN lukt dit niet omdat er dan slechts 1 (de eerste) waarde wordt gevonden.

Wie kan mij hiermee verder helpen?

Groet,
Edko

 

[WHER]

In bijlage je voorbeeld met twee UDF's (User Defined Function) die het gevraagde resultaat geven.
Zie ook: http://www.helpmij.nl/forum/showthr...kolom-in-1-cel-plaatsen?p=5008135#post5008135

 

[Edko]

SUPER! Dat ziet er goed uit!
Bedankt! Ik ga er meteen mee aan de slag!

 

[HSV]

Of een gewoon macrootje die er ook je schoensoort bij zet.

Sub schoenmaten()
Dim i As Long, iRow As Long
 Range("D2").CurrentRegion.ClearContents
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If WorksheetFunction.CountIf(Columns(4), Cells(i, 1)) = 0 Then
        Cells(Rows.Count, 4).End(xlUp).Offset(1) = Cells(i, 1)
    End If
iRow = Columns(4).Find(Cells(i, 1), , xlValues, xlWhole).Row
      If Cells(iRow, 5) = "" Then
         Cells(iRow, 5) = Cells(i, 2)
      Else
        Cells(iRow, 5) = Cells(iRow, 5) & "," & Cells(i, 2)
    End If
  Next i
End Sub

 

[Edko]

Hoi Harry,
Bedankt! Alleen ik weet niet wat ik hiermee kan doen, waar dit neer te zetten in het bestand.
Misschien kun je dit mij uitleggen?

Alvast bedankt.

grt,

 

[HSV]

Edko,

Kopiëer de code vanaf forum.
Druk Alt+F11.
Klik op 'Invoegen" → Module.
Plak de code in het grote witte vlak.
Druk Alt+Q.
Selecteer werkblad 'Stock-info'.
Druk Alt+F8 en voer de code uit.

 

[Edko]

Hoi Harry!

Inderdaad simpel te doen en werkt fantastisch!

Dank je wel.

groet,

 

[Edko]

Hallo,
Toch nog een vraagje....
Hoe kan ik de uitkomst in deze cellen exact zo weergeven in een celverwijzing?
Ik wil de uitkomst van deze cellen weergeven in een samengevoegde tekst maar dit wordt erg vreemd weergegeven. zoiets als 0,322 terwijl de broncel 35 , 37 , 39 , 42 laat zien.

groet,

 

[HSV]

Ongeveer zo.

="Dit zijn alle schoenmaten van schoen-1    " & E3

 

[Edko]

Hoi Harry,

Werkt met & nu wel!

Dank!