Waarden uit cellen samenvoegen d.m.v. knippen een plakken

[snb]

Sub M_snb()
    For Each it In Columns(9).SpecialCells(2).Areas
       it.Name = "snb"
       If it.Count = 1 Then it.Cells(1).Offset(, 2) = it
       If it.Count > 1 Then it.Cells(1).Offset(, 2) = Join([transpose(snb)], ", ")
    Next
End Sub

of

Sub M_snb_0()
    For Each it In Columns(9).SpecialCells(2).Areas
       it.Cells(1).Offset(, 2) = Replace(Trim(Join(Application.Transpose(it.Resize(it.Count + 1)))), " ", ", ")
    Next
End Sub

 

[Ginger]

@Ginger, het stopt niet na True, het zit m in de Join, die wil een Array en krijgt iets anders bij 1 cel

EvR, tnx. Dat had ik door, maar snap niet wáárom VBA die taak uitvoert terwijl de vergelijking op False uitkomt. Dat vind ik verre van efficiënt... En het levert op de koop toe, nog errors op ook.