cellen samenvoegen

[samui]

Beste toppers,

Zoek zoek zoek maar zie het geschikte antwoord niet in beeld komen.
Welke macro moet ik gebruiken om in cel A1 de samengevoegde cellen van cel A2 t/m A10 te plaatsen en dan elke inhoud van de cel gescheiden door een ;

Ofwel in cellen A2 t/m A10 staan de getallen 2 3 4 5 6 7 8 9 10

En in A1 wil ik dan de getallen 2;3;4;5;6;7;8;9;10 krijgen dmv een macrootje.
Het zal weer wat simpels zijn maar ik vind hem niet.

 

[edmoor]

Deze in een module:

Function SVCELLEN(rng As Range) As String
    Dim i As Integer
    
    For i = rng.Row To rng.Row + rng.Count - 1
        SVCELLEN = SVCELLEN & Cells(i, rng.Column) & ";"
    Next
    SVCELLEN = Left(SVCELLEN, Len(SVCELLEN) - 1)
End Function

Vervolgens in A1:

=SVCELLEN(A2:A10)

N.B:
Samengevoegde cellen is in Excel iets anders dan het samenvoegen van waarden uit meerdere cellen in 1 cel.

 

[Warme bakkertje]

Of

Function SVCELLEN(rng As Range) As String
    SVCELLEN = Join(Application.Transpose(rng), ";")
End Function

 

[edmoor]

Mooie :thumb:

 

[perryvg]

ook een mogelijkheid zonder macro.
in a1 = tekst.samenvoegen(celnr&";";enz)
als je natuur niet te veel cellen wil samen voegen.

Gr perry

 

[Warme bakkertje]

Nog gebruiksvriendelijker

Function SVCELLEN(rng As Range, Delimiter As String, Optional horizontal As Boolean) As String
    SVCELLEN = Join(IIf(horizontal, Application.Index(rng.Value, 1, 0), Application.Transpose(rng)), Delimiter)
End Function

De functie is nu te gebruiken voor verticale en horizontale bereiken alsook is er de vrije keuze van scheidingsteken.

Bij gebruik bij verticaal bereik met ; als scheidingsteken in cel A1

=SVCELLEN(A2:A10;";")

Bij gebruik bij horizontaal bereik met ; als scheidingsteken in cel A1

=SVCELLEN(A2:I2;";";"true")

 

[edmoor]

Perfect. Je bakt ze weer mooi bruin!

 

[samui]

Gelukt allemaal weer bedankt

Allen weer bedankt voor jullie suggesties.
Het werkt. Ik heb die van EdMoor toegevoegd en het werkt.
Super.
Ik sluit mijn vraag hierbij.

Tot een volgende keer weer.