Dringende Excel oplossing nodig. Moeilijke formule?

[Specialist18]

Hallo allemaal,

Ik kom er even niet uit. We zoeken een oplossing voor "misschien wel een heel simpel probleem?". Stel je het volgende voor. In kolom A staan merken. In kolom B staan producten. Elke product is uniek, maar er zijn meerdere producten die binnen hetzelfde merk vallen. Nu wil ik in kolom C een output hebben met een opsomming van alle producten achter elkaar, comma gescheiden, per merk.

In de bijlage heb ik een klein voorbeeld sheet geplaatst. Ik hoop dat iemand met kan helpen

Alvast bedankt voor de moeite,

Groet,

Michiel

 

[SjonR]

Welkom Michiel,

Als de gevonden producten ook onder elkaar mogen heb je misschien iets aan onderstaande link. Om het allemaal in 1 cel te prakken lukt mij niet. Bovendien ontgaat het nut mij.

http://www.get-digital-help.com/2009/01/31/using-array-formula-to-look-up-multiple-values-in-a-list/

 

[snb]

Voor dringende zaken moet je gewoon tegen betaling een uitstekende programmeur/specialist inschakelen. Ik weet er wel een.

 

[Peenvogel]

Appel ei

Hoi,

Gewoon om zelf te oefenen met dat meervoudig verticaal zoeken heb ik op de link geklikt
en de aanwijzingen gevolgd.

Groetjes, Peenvogel

 

[gast0660]

Hiermee?

 

[SjonR]

Het is zo dringend dat hij nog niet heeft gekeken

 

[Peenvogel]

Mooi gemaakt Jack!

 

[gast0660]

@ peenvogel thanks
@SjonR, is niet meer nodig. TS heeft voor zeer dringende reden Snbie ingehuurd

 

[VenA]

Gezien de haast van dit vraagstuk heb ik mij eindelijk eens verdiept in de 'scripting.dictionary':d

Sub VenA()
  ar = Sheet1.Cells(1).CurrentRegion
  With CreateObject("scripting.dictionary")
    For j = 2 To UBound(ar)
      If Not .exists(ar(j, 1)) Then .Add ar(j, 1), ar(j, 2) Else .Item(ar(j, 1)) = .Item(ar(j, 1)) & ", " & ar(j, 2)
    Next j
    Sheet1.Cells(1, 10).Resize(.Count) = Application.Transpose(Application.Index(.items, 0, 0))
  End With
End Sub

 

[gast0660]

@Vena, te laat, het was te dringend

 

[VenA]

@gast0660, Hoezo te laat? Zowel de offerte, de factuur als de betaling zijn inmiddels afgerond. Er was toch haast bij:d

 

[snb]

Ja dat was weer snel verdiend (zoals vanouds)

 

[HSV]

Behoefte aan meer studie-voer?

Sub hsv()
Dim ar, j As Long
  ar = Blad1.Cells(1).CurrentRegion
  With CreateObject("scripting.dictionary")
    For j = 2 To UBound(ar)
     .Item(ar(j, 1)) = IIf(.Item(ar(j, 1)) = "", .Item(ar(j, 1)) & ar(j, 2), .Item(ar(j, 1)) & ", " & ar(j, 2))
    Next j
    Blad1.Cells(1, 10).Resize(.Count) = Application.Transpose(.items)
  End With
End Sub

 

[VenA]

Behoefte aan meer studie-voer?

Tuurlijk, graag zelfs. Wordt een mens over het algemeen niet dommer van

Dus bedankt voor de aanpassingen.

 

[MarcelBeug]

In Excel 2016 kan het ook met een eenvoudige matrixformule (invoer van de formule afsluten met Ctrl+Shift+Enter) als je de gegevens in tabelvorm giet:

=TEKST.COMBINEREN(", ";1;ALS([MERK]=[@MERK];[PRODUCT];""))