Cellen samenvoegen met een komma er tussen

[Tweety1]

Ik ben op zoek naar een vba die de cellen vanaf regel 2 tot de laatste regel de kolommen V, W en X samenvoegt.
Tussen de samengevoegde tekst dient een komma geplaatst te worden en de eventuele spaties dienen verwijder te worden.

Mvg
Kasper

 

[HSV]

Test het maar eens.

Sub hsv()
 Range("v2", Cells(Rows.Count, 22).End(xlUp)).Name = "hsv_1"
  [hsv_1] = [hsv_1&if(offset(hsv_1,,1)>0,","&offset(hsv_1,,1),"")&if(offset(hsv_1,,2)>0,","&offset(hsv_1,,2),"")]
  Columns("W:X").Clear
 Application.Names("hsv_1").Delete
End Sub

 

[Tweety1]

Ziet er goed uit.
Wat ik nu nog mis hoe ik de spaties eruit kan halen?

 

[HSV]

Die was ik inderdaad vergeten.

 [hsv_1] = Application.Substitute([hsv_1&if(offset(hsv_1,,1)>0,","&offset(hsv_1,,1),"")&if(offset(hsv_1,,2)>0,","&offset(hsv_1,,2),"")], " ", "")

 

[Tweety1]

Thanks.
Het werkt.