Verketten2 in Bereich Spalte für Spalte

Hallo,
ich arbeite viel mit der Verketten2 Funktion, die ich als Makro in meine Arbeitsmappe eingebaut habe. Nun würde ich jedoch gerne nicht nur den Inhalt einer einzelnen Zeile oder Spalte, sondern den Inhalt eines größeren Bereichs (z.B. A1:C5) verketten. Im Prinzip funktioniert das mit der normalen verketten2 Funktion auch schon prima, bloß wird der Inhalt dabei Zeile für Zeile verkettet. Bei mir müssten die Inhalte jedoch Spalte für Spalte verkettet werden. Über Tipps wäre ich sehr dankbar!
Das ist mein bisheriges Verketten2 Makro:

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

Grüße Jeanette

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function Verketten3(ByRef bereich As Range, Trennzeichen As String) As String Dim rng As Range Dim z as Long dim s as Long For z = 1 to Bereich.rows.count for s = 1 to Bereich.Columns.count if Bereich(z, s) "" then Verketten3 = Trennzeichen & Verketten3 next next If Len(Verketten3) > 0 Then _ Verketten3 = Mid(Verketten3, Len(Trennzeichen) + 1) End Function

Function Verketten2(ByRef bereich As Range, Trennzeichen As String) As String Dim ZE, SP For Each SP In bereich.Columns For Each ZE In bereich.Rows If Intersect(SP, ZE) <> "" Then Verketten2 = Verketten2 & Intersect(SP, ZE) & Trennzeichen End If Next Next If Len(Verketten2) > 0 Then _ Verketten2 = Left(Verketten2, Len(Verketten2) - Len(Trennzeichen)) End Function

Function Verketten3(ByRef bereich As Range, Trennzeichen As String) As String Dim ZE, SP For Each SP In bereich.Columns For Each ZE In bereich.Rows If Intersect(SP, ZE) "" Then Verketten3 = Verketten3 & Intersect(SP, ZE) & Trennzeichen End If Next Next If Len(Verketten3) > 0 Then _ Verketten3 = Left(Verketten3, Len(Verketten3) - Len(Trennzeichen)) End Function

Function Verketten3(ByRef bereich As Range, Trennzeichen As String) As String Dim rng As Range Dim z As Long Dim s As Long For z = 1 To bereich.Rows.Count For s = 1 To bereich.Columns.Count If bereich(z, s) "" Then Verketten3 = Verketten3 & Trennzeichen & bereich(z, s) Next Next If Len(Verketten3) > 0 Then _ Verketten3 = Mid(Verketten3, Len(Trennzeichen) + 1) End Function

Beliebteste Forumthreads (12 Monate)

verwendete Formeln
Zelle	Formel	Bereich	N/A
G1	=Verketten2(A1: D3;", ")

Verketten2 in Bereich Spalte für Spalte

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread