Office: Verketten von Zeilen in Excel 2003

Hallo

ich möchte mehrere Daten (EmailAdreseen) die in Excel Zeile 1-500 dargestellt sind hintereinander durch Semikolon getrennt dargestellt haben,so das ich diese für den emailversand nutzen kann.

Ich brauche die Funktion zum zusammenführen mehrer Zeilen und trennung durch Semikolon

Danke für eure Hilfe

 

Hallo,

kopiere den folgenden VBA-Code in ein Modul der Tabelle:

Folgender VBA-Code in ein Modul der Tabelle:

Code:

Function Verketten2(ByRef bereich As Range, Trennzeichen As String) As String
Dim rng As Range
   For Each rng In bereich
      If rng <Then> 0 Then _
Verketten2 = Left(Verketten2, Len(Verketten2) - Len(Trennzeichen))
End Function

In die Zelle B1 dann folgende Formel:

=Verketten2(A1:A100;"; ")