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