Zellbereich verketten

Forumthread: Zellbereich verketten
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Zellbereich verketten

15.06.2007 15:47:36

Adem

Hallo Allerseits!
Ich möchte mehrere Zellen miteinander verketten. Die Formel Verketten umfasst bis zu dreißig Eingabemöglichkeiten.
Gibt es eine Formel, mit der auch ein Zellbereich verkettet werden kann? So wie die Summenformel (Beispiel Verketten (J2:j35;", ")
Beispiel J2:J40
In jeder Zelle steht ein Name. Ich möchte alle Zellen in einer Zelle haben, dabei sollen sie durch ein Komma und ein Leerzeichen getrennt werden.
Hat einer eine Idee?
Schöne Grüße aus Darmstadt
Adem

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellbereich verketten

15.06.2007 15:52:26

Rudi
AW: Zellbereich verketten

15.06.2007 16:01:00

Adem
AW: Zellbereich verketten

15.06.2007 16:06:35

Rudi
AW: Zellbereich verketten

15.06.2007 16:48:00

Adem

AW: Zellbereich verketten

15.06.2007 15:52:26

Rudi

Hallo,
in ein Modul:


Function BereichVerketten(Rng As Range, Optional strSpace As String) As String
'Verketten über Bereich
Dim c As Range
Application.Volatile
For Each c In Rng
BereichVerketten = BereichVerketten & c & strSpace
Next
BereichVerketten = Left(BereichVerketten, Len(BereichVerketten) - Len(strSpace))
End Function

In der Tabelle z.B.: =Bereichverketten(A1:A20;", ")
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Zellbereich verketten

15.06.2007 16:01:00

Adem

Hi Rudi,
vieln dank. Das klappt ja super. Ein Frage habe ich dennoch. Kann ich die Leerzellen überspringen, damit ich nicht zwei KOmmas und zewo Leerzeichen hintereinander habe?
Gruß
Adem

AW: Zellbereich verketten

15.06.2007 16:06:35

Rudi

Hallo,
natürlich.


Function BereichVerketten(Rng As Range, Optional strSpace As String) As String
'Verketten über Bereich
Dim c As Range
Application.Volatile
For Each c In Rng
If c  "" Then BereichVerketten = BereichVerketten & c & strSpace
Next
BereichVerketten = Left(BereichVerketten, Len(BereichVerketten) - Len(strSpace))
End Function

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe