Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 22:28:14
Formel Suche nur genauen Wert ausgeben
10.05.2024 19:12:28
Suche Formel für Monatsberechnung
10.05.2024 18:20:03
Status/Typ-Werte automatisch setzen in Abhängigkeit
10.05.2024 16:34:03
Excel auf Smartphone: Vorsicht beim Wischen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellbereich verketten

Zellbereich verketten
15.06.2007 13: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
Anzeige
AW: Zellbereich verketten
15.06.2007 13: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 14: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

Anzeige
AW: Zellbereich verketten
15.06.2007 14: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

AW: Zellbereich verketten
15.06.2007 14:48:00
Adem
Servus Rudi,
auch das klappt super!
Vielen Dank und ein schönes Wochenende
Adem

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige