Ik gebruik een formule om cellen met tekst samen te voegen.

[gridishere]

maak een UDF in een macromodule

Function samen(sq)
  samen=join(worksheetfunction.transpose(sq),"|")
End Function

zet in cel b4

=samen(M9:Q9)

klaar.

Hallo,

Dit werkt hetzelfde als de formule van bandito bob? Indien dit zo is, kun je dan een voorbeeldje geven?

Je code staat in een module.


Met vriendelijke groet,

grid

HSV,

Dat bedoel ik. En je voorbeeld is ook wat ik bedoel. Dit werkt ook om me verder in te verdiepen.


Met vriendelijke groet,

grid

 

[snb]

Hier is je voorbeeld

 

[gridishere]

Hallo snb,

Bedankt dat je ook meedenkt. Ik heb het nu uitgewerkt met de formule van bandito bob.

Je formule samen ondersteund ook scheidingstekens tussen de cellen? bijvoorbeeld ", "


Met vriendelijke groet,

grid

 

[snb]

ondersteunt (3e per. enkelvoud) eindigt op een t, niet op een d.

Wat je bedoelt met je vraag begrijp ik niet.

 

[gridishere]

Hallo snb,

Ik zal even de spelling checken

Een voorbeeld is als je dus in cel A1:A3 zet: Dit is tekst

In elke cel 1 woord, dat je dan krijgt met je script in 1 cel: Dit, is, tekst


Met vriendelijke groet,

grid

 

[snb]

Die oplossing had ik je al gegeven, maar dan met een pipeline:

Function samen(sq)
  samen=join(worksheetfunction.transpose(sq),"|")
End Function

Het aardige van deze methode is dat je het 'scheidingsteken' onbeperkt kunt wijzigen of uitbreiden:

Function samen(sq)
  samen=join(worksheetfunction.transpose(sq),", zoals bijvoorbeeld")
End Function

Hiermee kun je bijvoorbeeld handig emailadressen maken met steeds dezelfde tekst achter het apestaartje.

 

[gridishere]

Hallo snb,

Ik ga me er verder mee verdiepen. Dank je wel! Dat met de pipeline had ik dus niet door :thumb:


Met vriendelijke groet,

grid