omzetten n

[rinusjan]

Is er een mogelijkheid om ineens al deze e-mail adressen uit een ecel bestand over te zetten in een e-mail of achter elkaar te plaatsen in een word bestand met ;en een spatie ertussen
Het is zo
010design@planet.nl
011110@berthofman.nl
01751@schumm.nl
021.van zaane@planet.nl
023@chello.nl


KOMT UIT EEN EXCEL BESTAND EN STAAN ONDER ELKAAR IN EEN KOLOM

MOET WORDEN
010design@planet.nl; 011110@berthofman.nl; 01751@schumm.nl enz enz
Groet rinusjan

 

[edmoor]

Tuurlijk kan dat. De spatie hier is een tikfoutje neem ik aan: 021.van zaane@planet.nl

Voorbeeldje:
Bekijk bijlage MailAdres.xlsm

 

[rinusjan]

hoi edmoor

Geweldig dat scheelt weer een hoop werk
het is de bedoeling dat er tussen ieder e-mail adres ; komt te staan met een spatie erachter

Groet rinusjan

 

[edmoor]

Zie voorbeeld document in #2.

 

[rebmog]

Of:

Private Sub CommandButton1_Click()
    Dim arr()
    arr = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
    Cells(1, 7) = Join(Application.Transpose(arr), "; ")
End Sub

 

[edmoor]

Dan kun je het zelfs zo doen

Private Sub CommandButton1_Click()
    Cells(1, 7) = Join(Application.Transpose(Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value), "; ")
End Sub

 

[HSV]

of:

Cells(1, 7) = Join(Application.Transpose(Cells(1).CurrentRegion), "; ")