cellen samenvoegen met een | er tussen

[remco1987]

Goedemiddag,

is het mogelijk als ik in cel A t/m A60000 iets in vul dat hij deze cellen samenvoegt met een | teken?

uiteraard kan ik tekst samenvoegen en steeds a1 volgende regel | en dan een nieuwe regel a2 en dan weer | in tikken alleen als ik dat moet doen bij 4000 regels kan je me weg brengen

wie heeft een oplossing?
zie voorbeeld blad hoe ik het nu doe zie je bij a30


gr Remco

 

[AlexCEL]

Zo?

=TEKST.COMBINEREN("|";WAAR;A30:A10000)

 

[remco1987]

Zo?

=TEKST.COMBINEREN("|";WAAR;A30:A10000)

ik krijg dan #naam? te zien

 

[JEC.]

Bvb met deze UDF:

Function jec(rng As Range) As String
jec = Replace(Join(Application.Transpose(rng), "|"), "||", "")
End Function

Te gebruiken als

=jec(A1:A4000)

 

[JEC.]

Of als er willekeurig lege cellen in het bereik staan

Function jec(rng As Range) As String
jec = Join(Filter(Evaluate("transpose(if(len(" & rng.Address & ")," & rng.Address & "))"), False, 0), "|")
End Function

of

Function jec() As String
jec = Join(Filter([transpose(if(len(A1:A4000),A1:A4000))], False, 0), "|")
End Function

=jec()

 

[snb]

Vertel eens waarom je dat zou doen in een werkblad met 2^16 kolommen ?

 

[remco1987]

Vertel eens waarom je dat zou doen in een werkblad met 2^16 kolommen ?

ik wil als ik cel A invul in bijv cel b alles bij elkaar samengevoegd hebben van cel A met een | tussen zodat ik die regel kan kopiëren

 

[remco1987]

Of als er willekeurig lege cellen in het bereik staan

Function jec(rng As Range) As String
jec = Join(Filter(Evaluate("transpose(if(len(" & rng.Address & ")," & rng.Address & "))"), False, 0), "|")
End Function

of

Function jec() As String
jec = Join(Filter([transpose(if(len(A1:A4000),A1:A4000))], False, 0), "|")
End Function

=jec()

ik heb een "knop" aangemaakt en voeg dan de volgende omschrijving toe:

Function jec() As String
jec = Join(Filter([transpose(if(len(A1:A4000),A1:A4000))], False, 0), "|")
End Function

en dan?

 

[popipipo]

is het mogelijk als ik in cel A t/m A60000 iets in vul dat hij deze cellen samenvoegt met een | teken?

Houd wel rekening dat het maximaal aantal karakters in 1 cel 32767 is.

 

[remco1987]

Houd wel rekening dat het maximaal aantal karakters in 1 cel 32767 is.

Dankjewel voor de tip! handig als het gelukt is om dit te weten

 

[remco1987]

helaas lukt me niet....

 

[JEC.]

Je moet de code plakken in een module. Alt +F11 —> insert module —> plakken.

Daarna de functie aanroepen zoals eerder beschreven

 

[snb]

Waarheen ga je dt kopiëren ?

 

[peter59]

Hallo,

Kijk eens of de bijlage aan de verwachting voldoet.
Dit is gemaakt d.m.v. power query.

 

[remco1987]

Bvb met deze UDF:

Function jec(rng As Range) As String
jec = Replace(Join(Application.Transpose(rng), "|"), "||", "")
End Function

Te gebruiken als

=jec(A1:A4000)

eerste code heb ik geplaatst met alt + F11 daarna heb ik in een cel B33 de volgende code geplakt =Jec(a1:a1000) en dan krijg ik dit te zien #WAARDE!

 

[remco1987]

Hallo,

Kijk eens of de bijlage aan de verwachting voldoet.
Dit is gemaakt d.m.v. power query.

Dankjewel, ik krijg alleen een beveiligingswaarschuwing kan het niet meer openen

 

[peter59]

Beveiligingswaarschuwing?
Vreemd.
Kan je eens een printscreentje hiervan uploaden?

 

[peter59]

Als het onderstaand is dan op "inhoud inschakelen" klikken

 

[remco1987]

Beveiligingswaarschuwing?
Vreemd.
Kan je eens een printscreentje hiervan uploaden?

mijn excel ondersteund hem niet, ik doe het even via excel van mijn werk, kom er op terug

 

[peter59]

Ah, oké

Power query is beschikbaar vanaf Excel 2016 of later en Microsoft 365.
Welke gebruik jij?