Worte zusammensetzen

Forumthread: Worte zusammensetzen

14.04.2014 13:46:40

Peter

Hallo Zusammen,
ich bitte um Eure Hilfe.
Ich habe in den Zellen A1 bis A5 Emailadressen.
Nun möchte ich per Schleife die Emailaddessen in einem String (z.B. strEmpfaenger) zusammenfügen wobei sie durch ein Semikolon getrennt sein müssen.
Wie müsste dazu das Makro aussehen?
Für Eure Hilfe bedanke mich im voraus!
Peter

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Worte zusammensetzen

14.04.2014 13:54:53

Rudi
AW: Worte zusammensetzen

14.04.2014 14:03:31

Matthias
AW: Worte zusammensetzen

15.04.2014 15:54:27

Peter
Na dann zu! owT

15.04.2014 19:17:00

Luc:-?

AW: Worte zusammensetzen

14.04.2014 13:54:53

Rudi

Hallo,
ohne Schleife:

Sub aaa()
Dim s
s = Join(WorksheetFunction.Transpose([a1:a5]), ";")
End Sub

Gruß
Rudi

AW: Worte zusammensetzen

14.04.2014 14:03:31

Matthias

Hallo
und hier mit Schleife, weil so gewollt ;-)

Dim x&, strg$, strEmpfaenger$
For x = 1 To 5
strg = strg & Cells(x, 1) & ";"
Next
strEmpfaenger = Left(strg, Len(strg) - 1)

Gruß Matthias

AW: Worte zusammensetzen

15.04.2014 15:54:27

Peter

Hallo Zusammen,
beide Lösungen sind gut.
Vielen Dank dafür!
Peter

Na dann zu! owT

15.04.2014 19:17:00

Luc:-?

:-?

Forumthread: Worte zusammensetzen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread