Tekst van cellen uit 1 kolom samenvoegen

[truusjemarie12]

In a1 heb ik een e-maildadres staan, in a2 een ander e-mailadres, in a3 weer een ander e-mailadres etc. Hoe kan ik de e-mailadressen in 1 cel achter elkaar krijgen, gescheiden door een komma?
Wat moet hiervoor de formule zijn en moet ik deze formule in een lege cel plaatsen? Ik hoop van het weekend een reactie te krijgen, omdat ik een hele grote mailing maandag (het liefst vandaag of morgen) moet versturen per e-mail.

Ik hoor het graag! Alvast bedankt!

 

[gelens]

Truusje marie

Dit zou moeten werken :

=A1&","&A2&","&A3

 

[wiki]

deze formule in b2, mailadressen in kolom a vanaf a2 en in de cel met de formule op de vulgreep klikken (of kopieren).

=a2 &","& b1

gr wim

 

[truusjemarie12]

Ik heb 500 cellen onder elkaar staan. Alles uittypen wordt teveel. Hoe kan ik dit selecteren? En moet ik de formule in een lege cel plaatsen? Als het kan stapsgewijs uitleggen. Ik ben nog maar een beginneling...

Nog 1 vraagje. Hoe kan ik in diezelfde kolom met onder elkaar de emailadressen, emailadressen ontdubbelen?

Alvast bedankt voor je snelle reactie!

 

[wiki]

Eerst kolom a sorteren en daarna onderstaande macro

Sub Uniek()
'
' Uniek Macro
'

'
Application.Calculation = xlManual
Application.ScreenUpdating = False


Set currentCell = Range("a2")
Do While Not IsEmpty(currentCell.Offset(0, 1))
Set nextCell = currentCell.Offset(1, 0)
If nextCell.Value = currentCell.Value Then
'currentCell.EntireRow.Interior.ColorIndex = 3 'kleurt de dubbele in
currentCell.EntireRow.Delete 'verwijdert bij een dubbele waarde de eerste rij
End If
Set currentCell = nextCell
Loop
Range("a1").Select

Application.Calculation = xlAutomatic
Application.ScreenUpdating = True

End Sub

gr wim

 

[HSV]

1:

Sub allesinééncelplaatsen()
    Dim cl As Range
     [c3].ClearContents
       For Each cl In Range("A1:A500").SpecialCells(2, 2)
    If [c3] = "" Then
         [c3] = cl
       Else
    [c3] = [c3] & "," & cl
   End If
  Next cl
End Sub

2: Als je versie 2007 hebt, kun je de dubbele mailadressen verwijderen met 'Duplicaten verwijderen' onder Menu 'Gegevens'.

 

[gelens]

Truusje marie

In cel B1 de formule

=a1

In cel b2 de formule :

=B1&","&A2

De laatste formule naar beneden copieren tot het einde van de adressen. In de onderste cel staan nu alle adressen voor de mailing.

 

[truusjemarie12]

Allemaal bedankt voor de reactie. Die van Gerard begreep ik en die werkt! Ontdubbelen lukt nu ook!

 

[Warme bakkertje]

Sub tst()
sq = Range("A1:A500").SpecialCells(2, 2)
    For i = 1 To UBound(sq)
        tot = tot & "," & sq(i, 1)
    Next
[B1] = Right(tot, Len(tot) - 1)
End Sub

Markeer je de vraag dan nog even als opgelost