Tekst samenvoegen vanuit verschillende kolomcellen

[BW0]

Dag Allemaal,

Ik ben op zoek naar een formule om uit bijvoorbeeld kolom A cellen samen te voegen op tekstvlak met tussenin volgend teken: |
Het probleem is dat hier soms ook lege cellen tussen zullen staan.
Deze moeten niet meegenomen worden, en hier moeten dus ook geen extra |-tekens tussenkomen.
Ik ben dus op zoek naar het volgende resultaat: Cel1|Cel2|Cel3|Cel5|Cel8|Cel12.

Ik vrees dat dit niet met een formule lukt maar eerder via invoegen van module met VBA?
Kan iemand me hier mee verder helpen?

Alvast bedankt!

 

[AlexCEL]

Welkom.

Lees dit eerst eens: http://www.helpmij.nl/forum/announcement.php?f=5

 

[edmoor]

Naast wat AlexCEL zei, de functie TEKST.COMBINEREN kan dat.

 

[BW0]

Voorbeeldbestandje

 

[edmoor]

Deze dus:

=TEKST.COMBINEREN("|";WAAR;C5:C18)

Wel afhankelijk van je Excel versie.

 

[BW0]

Deze dus:

=TEKST.COMBINEREN("|";WAAR;C5:C18)

Wel afhankelijk van je Excel versie.

Dag Edmoor,

Inderdaad.
Helaas gaat dit niet met mijn excel versie.
Zit met Excel 2013

 

[edmoor]

Plaats dan dit in een Module:

Public Function BW0_TEKSTCOMBINEREN(sep As String, rng As Range, leeg As Boolean) As String
    For Each cl In rng
        If Not leeg Then
            If cl.Value <> "" Then
                tmp = tmp & cl.Value & sep
            End If
        Else
            tmp = tmp & cl.Value & sep
        End If
    Next
    BW0_TEKSTCOMBINEREN = Left(tmp, Len(tmp) - 1)
End Function

Aanroep voor je voorbeeld:

=BW0_TEKSTCOMBINEREN("|";C5:C18;0)

 

[BW0]

Plaats dan dit in een Module:

Public Function BW0_TEKSTCOMBINEREN(sep As String, rng As Range, leeg As Boolean) As String
    For Each cl In rng
        If Not leeg Then
            If cl.Value <> "" Then
                tmp = tmp & cl.Value & sep
            End If
        Else
            tmp = tmp & cl.Value & sep
        End If
    Next
    BW0_TEKSTCOMBINEREN = Left(tmp, Len(tmp) - 1)
End Function

Aanroep voor je voorbeeld:

=BW0_TEKSTCOMBINEREN("|";C5:C18;0)

Hartelijk Dank!
Precies wat ik nodig had.

 

[edmoor]

Graag gedaan.
En wil je de volgende keer de knop "Reageer op bericht" gebruiken in plaats van de Quote knop?