Ich suche eine Formel um hunderte von Zeilen-Inhalte (Zahle) alle hintereinander (Werte jeweils mit Komma getrennt) in einer Zelle zusammenzufassen.
Kennt jemand eine einfache, schnelle Formel dazu ?
Herzlichen Dank
Grüsse Carlo
Sub Kette()
Dim myArray
Dim lngLastRow As Long, i As Long, n As Long
With Sheets("Tabelle1")
lngLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
myArray = .Range(.Cells(1, 1), .Cells(lngLastRow, 1))
ReDim myArray(1 To UBound(myArray, 1))
For i = 1 To UBound(myArray)
If .Cells(i, 1) "" Then
n = n + 1
myArray(n) = .Cells(i, 1)
End If
Next
ReDim Preserve myArray(1 To n)
.Cells(1, 2) = Join(myArray, ",")
End With
End Sub
Problem ist nur:Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen