vertikale cellen samenvatten tot één cel waarvan de waarden gescheiden worden door ;

[Havana100]

beste,

Weet er soms iemand een eenvoudig formule om de waarden die in een bepaalde kolom staan samen te vatten in een andere cel waarin de waarden die in de eerste kolom vermeld staan in de cel komen te staan gescheiden door een punt komma?

In bijlage een voorbeeld, in werkelijkheid kunnen dit wel een duizendtal waarden zijn.


groeten i! Bekijk bijlage test.xlsx

 

[HSV]

Ik heb er wel een code voor.

Sub hsv()
 Cells(2, 2) = Join(Application.Transpose(Cells(1).CurrentRegion.Columns(1).Value), ";")
End Sub

 

[edmoor]

Simpel met een VBA functie in een Module:

Function SAMENVOEGENSCHEIDEN(Gebied As Range) As String
    For Each cl In Gebied
        SAMENVOEGENSCHEIDEN = SAMENVOEGENSCHEIDEN & cl.Value & ";"
    Next cl
End Function

Aanroep in je voorbeeld:
=SAMENVOEGENSCHEIDEN(A1:A14)

 

[HSV]

Ed:

Function SAMENVOEGENSCHEIDEN(Gebied As Range) As String
SAMENVOEGENSCHEIDEN = Join(Application.Transpose(Gebied), ";")
End Function

 

[edmoor]

En zo zijn er meer wegen naar Rome.
Maar die van jou zal met de door TS aangegeven aantallen veel sneller zijn

 

[HSV]

Ach, het is maar een suggestie.
Ik woon in het noorden des lands, maar voor randstedelingen is dat het hoge noorden (veel te ver), maar als ze naar de zon gaan is het niet ver.

 

[edmoor]

Je wil niet weten hoe vaak ik in Groningen ben.
Dat gebeurt weleens als je er klanten hebt en je hele familie er vandaan komt.
Gelukkig kan ik de goede leverworst ook hier kopen

 

[HSV]

Hou op, je laat me watertanden Ed, en vergeet natuurlijk de Groninger droge worst niet (volgens mij als enige in ons land met een kruidnagel). :thumb:

 

[edmoor]

Precies! Heerlijk! :d

 

[Havana100]

hey Heren,

werkt perfect hoor !!! en snel !!!!

bedankt !!!!