Tekst van reeks samenvoegen met scheiding teken naar cel

[tepke]

Hoi

Ik heb een reeks B.V. van A1 tot A39 de gegevens van deze cellen wil graag naar een cel toe schrijven met een scheiding teken ;
Handmatig weet hoe ik het moet doen maar wil het in een script zetten omdat De reeks het vaak wisselt.

Al vast bedankt voor de hulp

 

[HSV]

Alle hulp is hier gratis, maar als een bedankje er niet af kan pas ik even.

 

[AlexCEL]

Weet niet waar HSV op doelt, vandaar toch maar reactie.

Formule voor Excel 365:

=TEKST.COMBINEREN(";";WAAR;A1:A39)

 

[HSV]

Zo moeilijk is lezen toch niet en het profiel bekijken van Ts?

 

[VenA]

@AlexCEL, Zowel @HSV, als jij en ik hebben al in meerdere draadjes van de TS een reactie gegeven op andere vragen alleen komt de TS nergens op terug. Enig fatsoen is de TS blijkbaar onbekend.

Bv hier https://www.helpmij.nl/forum/showthread.php/953897-kolommen-naar-rijen-met-een-cel-behouden
en hier https://www.helpmij.nl/forum/showthread.php/953917-van-getal-naar-tekst-voor-reeks

 

[tepke]

Beste Harry En vena en andere

Sorry, mijn welgemeende excuses. Ik waardeer je hulp En van de overige hulp biedende ten zeerste, ik ben je zeer dankbaar dat ik bij jullie terecht kan. Sorry dat ik niet direct gereageerd heb dat is niet goed van mij. Moet eerlijk zeggen dat de hulp van alle jaren Op dit forum mij ver heeft gebracht, had nooit kunnen programmeren zonder jullie hulp. Soms heb ik tijden dat ik er niet mee bezig ben en dan verwaterd het een beetje, maar met jullie steun Pik ik het snel weer op

Mijn dank

 

[AlexCEL]

Ah... was dat 't. Kon het zo snel niet terugvinden.
Nou ja, wat mij betreft alles ok.

 

[tepke]

=TEKSTsamenvoegen(";";WAAR;B3:B39)

bedankt voor je antwoord

Ik heb dit geprobeerd maar ik werk in Excel 2010 en daar kent hij dit niet , is denk ik uit een hogere versie is er nog een andere methode?

ik bedoel

=TEKST.COMBINEREN(";";WAAR;A1:A39)

 

[AlexCEL]

Het gemakkelijkst is dan een hulpkolom denk ik.

 

[tepke]

Beste axel

BEdankt voor je hulp, het werkt

 

[HSV]

Dan gaan we gewoon weer verder.

Een script zoals jij het benoemt.

In een standaard module.

Function Rangejoin(r As Range, delimeter As String, Optional vertical As Boolean) As String
 With Application
  Rangejoin = Join(IIf(vertical, .Transpose(r), .Transpose(.Transpose(r))), delimeter)
 End With
End Function

Of:

Function Rangejoin(r As Range, delimeter As String, Optional vertical As Boolean) As String
 With Application
  Rangejoin = Join(IIf(vertical, .Transpose(r), .Index(r.Value, 1, 0)), delimeter)
 End With
End Function

Met in een cel....als de gegevens verticaal staan.

=Rangejoin(A1:A39;";";WAAR)

En voor horizontaal.

=Rangejoin(C5:H5;";")

Of:

=Rangejoin(C5:H5;";",ONWAAR)

 

[tepke]

Bedankt

Bedankt voor de info