formule samenvoegen

[moensk]

Heb een excel waarbij ik kolom A klantnr staat in kolom B leverinstructies staan doch verdeelt over diverse rijen.
in kolom C wil ik alles achter elkaar geplakt hebben in 1 cel
kan dit via een formule of enkel via VBA script ?

voorbeeld : Bekijk bijlage hulp samenvoegen.xlsx

 

[AlexCEL]

Zo?

=TEKST.COMBINEREN(" - ";1;B2:B7)

 

[moensk]

sorry mijn file is te onduidelijk ik post even een nieuwe
vergeten bij te zetten dat het een file is met +-5000 lijnen met om de zoveel regels een nieuwe klant

Bekijk bijlage hulp samenvoegen_1.xlsx

 

[AlexCEL]

Zo dan?

A2: =ALS($A2<>$A1;TEKST.COMBINEREN(" - ";1;ALS($A$1:$A$6000=$A2;$B$1:$B$6000;""));"")

Invoeren als matrixfunctie, d.w.z. afsluiten met Control+Shift+Enter

 

[VenA]

Of met een macro

Sub VenA()
  ar = Cells(1).CurrentRegion.Resize(, 3)
  For j = 2 To UBound(ar)
    If ar(j, 1) <> ar(j - 1, 1) Then t = j
      ar(t, 3) = ar(t, 3) & IIf(Len(ar(t, 3)) = 0, "", " - ") & ar(j, 2)
  Next j
  Cells(1).CurrentRegion.Resize(, 3) = ar
End Sub

 

[moensk]

super bedankt voor snelle reactie, werkt uitstekend