Kennt Ihr eine Formel mit der ich 500 Email Adressen die zurzeit in 500 Zellen stehen in eine Zelle zusammenfassen kann? Die einzelnen Adressen müssen mit einem Komma voneinander getrennt werden. Vielen Dank
Thomy
Function Verketten2(Bereich As Range) As String
Dim Zelle As Range
Dim tmp As String
For Each Zelle In Bereich
tmp = tmp & Zelle & ","
Next
Verketten2 = Left(tmp, Len(tmp) - 1)
End Function
Gruß Jürgen