kolom in 1 cel

[whiteboy]

Ik heb een kolom met emailadressen.
Deze wil ik in 1 cel plaatsen met een ";" er tussen.
Momenteel heb ik dit, maar krijg een fout in de formule.

Sub Macro2()
Dim Rij, teller

Rij = 2
teller = 1

While Worksheets("per mail").Cells(Rij, "I") <> ""
    Range("J2").Select
    ActiveCell.FormulaR1C1 = "=R[ & teller & ]C[-1];"""
    teller = teller + 1
    Rij = Rij + 1
Wend

End Sub

 

[WinteE]

i = Cells(Cells.Rows.Count,"A").End(xlUp).Row

For Each a In Range("A1:A" & i)
  sAdr = sAdr & a.Value & ";"
Next a

Range("C1").Value = a

Probeer deze code eens, waar in kolom A de emailadressen staan en in cel C1 alles achter elkaar komt te staan.

 

[whiteboy]

Ik krijg niets in cel C1
Wat ie er hier dan verkeerd?

Sub to1cel()

    i = Cells(Cells.Rows.Count, "A").End(xlUp).Row

    For Each a In Range("A1:A" & i)
      sAdr = sAdr & a.Value & ";"
    Next a

    Range("C1").Value = a

End Sub

 

[WinteE]

Sorry , foutje van mij. Het had dus moeten zijn :

Sub to1cel()

    i = Cells(Cells.Rows.Count, "A").End(xlUp).Row

    For Each a In Range("A1:A" & i)
      sAdr = sAdr & a.Value & ";"
    Next a

    Range("C1").Value = [COLOR="Red"][B]sAdr[/B][/COLOR]

End Sub

Erik

 

[Wigi]

Op mijn site is een pagina gewijd aan deze steeds terugkerende vraag: bij Excel, dan VBA-code, dan "Cellen samenvoegen".

Wigi

 

[whiteboy]

bedankt allen