Mehrere Zelleinträge in einer Zelle hintereinander ausgeben

Question

ich habe eine Tabelle, in der 5 Werte untereinander stehen (A1 bis A5).
Diese Werte möchte ich jetzt in einer anderen Zelle (B1) hintereinander ausgeben.
Kann mir dazu bitte jemand den VBA-Code sagen?

Vielen Dank für die Hilfe.

Viele Grüße
Janine


[*][sup]Admininfo: Bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen. Siehe FAQ 2.[/u][/sup]

Answer 1

Hallo Janine,

das geht mit Formel

=A1&","&A2&","&A3&","&A4&","&A5

Gruß
Rainer

Answer 2

Hallo Janine,

wenn Du natürlich auf einer Makrolösung bestehst, dann bitte.

Option Explicit

Sub verketten()
Dim rngC As Range, strKette As String
For Each rngC In Range("A1:A5")
strKette = strKette & ", " & rngC
Range("B1").Value = Right(strKette, Len(strKette) - 1)
Next
End Sub

Gruß
Rainer

Answer 3

Hallo Rainer,

vielen lieben Dank!
funktioniert super! :-)

Viele Grüße
Janine