Cellen samenvoegen (tekst) dmv VBA

[peter59]

Hallo,

Ik tracht met een VBA code diverse cellen samen te voegen.
Voor 2 cellen is dit geen probleem maar dit kan variëren van 3 tot wel 4 cellen.
Zie zeer eenvoudig bijgevoegd voorbeeld.

Dank alvast voor het meedenken.

 

[JEC.]

Met deze UDF

Function jveer(rng As Range)
   c00 = Application.Transpose(Application.Transpose(rng))
   a = Filter(Split("~" & Join(c00, "~|~") & "~", "|"), "~~", 0)
 
   x = a(UBound(a))
   a(UBound(a)) = a(0)
   a(0) = x
   a(UBound(a) - 1) = a(UBound(a) - 1) & ","
     
   jveer = Replace(Join(a), "~", "")
End Function

Invoeren als

=jveer(A2:D2)

en doortrekken

 

[peter59]

Hallo JVeer

Dank.
Werk bijna perfect echter na de komma zijn er 2 spaties.
Ik heb het e.e.a. geprobeerd in de functie aan te passen maar helaas met mijn minimale kennis niet gelukt.

 

[JEC.]

Heb de code aangepast, was een kwestie van de spatie weghalen achter de comma op de één na laatste regel in de code.

 

[peter59]

JVeer,

Wederom dank.
Het is gelukt.
Daar had ik ook al de spatie verwijderd maar om de een of andere reden deed dat niet wat ik graag wilde zien.
Zelf denk ik dat ik eerst alles had moeten opslaan en hierna weer moeten openen.