Samenvoegen teksten

[PeterBijns]

ik wil telkens uit 3 cellen de tekst samenvoegen in een cel, na de eerste naam dient een komma te komen en tussen de laatste namen dient het woord "en" te komen.
Deels is dit mij gelukt alleen laat ik dan de eerste of de 2e naam weg dan staat er voor de eerste naam ook een komma of "en" wat niet gewenst is. ik kom niet verder met het uitbreiden of het goed maken van de formule, ook met Tekst.Samenvoegen lukt het mij niet want dat mag ook.

In het bijgevoegde bestand heb ik al zitten klooien zonder het geede resultaat.

Alvast bedankt voor het meedenken,
Groet, Peter

 

[AlexCEL]

Probeer deze eens:

=ALS(ISLEEG(A1);"";A1&", ")&ALS(ISLEEG(A2);"";A2&" en ")&ALS(ISLEEG(A3);"";A3)

Hoe ver wil je de lijst uitbreiden?

 

[JeanPaul28]

=TEKST.SAMENVOEGEN(A1;ALS(A1="";"";", ");A2;ALS(A1="";", ";" en ");A3)

Is deze goed

 

[PeterBijns]

De beiden oplossingen hebben een manco, met name als je een naam of 2 namen weg laat komt er soms toch een komma of er staat na een naam "en" .

Het invullen van de namen gebeurt soms niet vaan bovenaf, dus A1 wordt soms leeg gelaten of wel gevuld maar dan kan het zijn dat A2 leeg of A3 leeg blijft.

De lijst uitbreiden dat lukt mij wel maar dan moet ik wel een werkende formule hebben.

In elk geval bedankt voor jullie snelle reactie.
Mvg. Peter

 

[AlexCEL]

Mag ik ook een hulpkolommetje gebruiken? Werkt prima bij langere lijsten...

 

[Cobbe]

Je kan deze gebruiken:

=TEKST.COMBINEREN(" en ";1;A1:A3)

 

[PeterBijns]

Super bedankt AlexCel,

Dit is precies zoals ik het hebben wilde, hier kan ik mee uit de voeten.

De anderen ook bedankt, de formule van Cobbe geeft #Naam? bij mij maar toch reuze bedankt ook.

Mvrg. Peter

 

[lam201]

Peter,

nog een iets andere oplossing.
Die van AlexCEL gaat mank als er meerdere blanco cellen zijn.
(maar weet niet of dit bij jou ook het gebal is)

de formule van Cobbe is nieuw.
En werkt volgens mij alleen in de laatste versie van Excel (2016).


Lambert

Bekijk bijlage Teksten samenvoegen (Lam).xlsx

 

[PeterBijns]

Hoi Lambert,

Jou bestand werkt ook prima, leuk dat je nog even reageerde met ook een mooie oplossing.

Ik ben er weer mee gered en wil je bedanken voor je inzet.

Groet, Peter

 

[AlexCEL]

@lambert: wat gaat er mank dan? Werkt volgens mij wel goed, maar die van jou is stukje korter...

 

[snb]

Of een UDF

In K1:

=F_snb(A1:A19)

Function F_snb(sn)
   F_snb = Application.Substitute(Replace(Application.Trim(Join(Application.Transpose(sn))), " ", ", "), ", ", " en ", Application.CountA(sn) - 1)
End Function