ich sehe mich folgender Aufgabenstellung gegenüber:
In Spalte A habe ich in 20 Zellen untereinander jedesmal die Zahl 4711.
In Spalte B habe ich dann jeweils unterschiedliche Zahlen.
Beispiel:
4711 1
4711 2
4711 3
4711 4
Ich suche eine Funktion, mit der ich die Zahlen aus Spalte B kommagetrennt in EINE Zelle bekomme, also
4711 1, 2, 3, 4
eine Möglichkeit wäre, wenn Du rechts von der Ergebniszelle genügend leere Spalten (als ausblendbare Hilfsspalten) hast, folgende Formel in die Ergebniszelle (in meinem Beispiel D2) und diese Formel weit genug nach rechts kopieren:
Sub mach_wieder()
Dim i As Long, j As Long
Dim lngZ As Long
Dim arr As Variant
Dim varK
Dim D1 As Object
Set D1 = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
lngZ = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range("a2:b" & lngZ)
For i = 1 To UBound(arr)
D1(arr(i, 1)) = D1(arr(i, 1)) & ", " & arr(i, 2)
Next i
Range("H2").CurrentRegion.Offset(1, 0).Resize(, Range("D2").CurrentRegion.Columns.Count).ClearContents
For Each varK In D1.Keys
.Cells(j + 1, 8) = varK
.Cells(j + 1, 9) = Mid(D1(varK), 2)
j = j + 1
Next
End With