tekst samenvoegen door middel van VBA

[Egbert12345]

Beste forummers, willen jullie mij weer eens helpen?

Ik heb een voorbeeldbestandje bijgevoegd met twee macro's.
De eerste macro voegt aan de waarde in de eerste cel een teken toe (puntkomma)

De tweede macro zou het volgende moeten doen: alle waardes met de puntkomma in cel E2 plaatsen (dit worden straks e-mailadressen die ik dan kan opnemen in een e-mail als BCC)

In kolom D heb ik het met tekst samenvoegen opgelost, maar dit kan toch ook via een macro. Wat doe ik verkeerd in de tweede macro?

Groet Egbert

 

[VenA]

Kan ook wel in 1 keer.

Sub VenA()
  c00 = Join(Application.Transpose(Range("A1:A10")), ";")
End Sub

Wat je fout doet

Sub test1()
For A = 1 To [COLOR="#FF0000"]10[/COLOR]
waarde = Cells(A, 2)
gevonden = [COLOR="#FF0000"]gevonden[/COLOR] [COLOR="#FF0000"]&[/COLOR] waarde          ' dit klopt dus niet
Next

Range("E1") = gevonden

 

[Egbert12345]

Ah, wat oliedom van mij. Dit had ik moeten weten. Bedankt voor de snelle beantwoording