• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

e-mailadressen samenvoegen met komma ertussen

Status
Niet open voor verdere reacties.
T

trainers

Verenigingslid
Lid geworden
8 feb 2012
Berichten
162
Onderstaande code (gevonden op het forum) werkt doch hoe krijg ik een komma tussen de mailadressen? De "" zorgt er voor dat lege cellen niet als een spatie worden meegenomen.
Code: 
Option Explicit

Sub maken()
    Range("C1") = Join(Application.Transpose(Range("A1:A200")), "")
End Sub
Met de formule
=TEKST.SAMENVOEGEN(A1;",";A2;",";A3;",";A4)
Klik om te vergroten...
gaat het goed, doch het zijn meer dan 100 mailadressen.
Iemand een tip? Bij voorbaat dank.
 

Bijlagen

  • Map1.xlsm
    14,2 KB · Weergaven: 30
Code: 
Range("C1") = Join(Application.Transpose(Range("A1:A200").SpecialCells(2)), ",")
 
Nieuwste versies van Excel:
Code: 
=TEKST.COMBINEREN(",";WAAR;A1:A200)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan