Hallo Claudia,
machs mal so: Code in ein allgemeines Modul (z.B. Modul1)
Function Zusammenfassen(Bereich As Range, Optional Delimiter As String) As String
Dim s As String, n As Long
For i = 1 To Bereich.Cells.Count
n = n + 1
If Bereich.Cells(i) <> Bereich.Cells(i + 1) Or i = Bereich.Cells.Count Then
s = s & IIf(n > 1, n & "x", "") & Bereich.Cells(i) & Delimiter
n = 0
End If
Next i
Zusammenfassen = Left(s, Len(s) - Len(Delimiter))
End Function
Dann mit Formel in S1: =zusammenfassen(C1:Q1;", ")
Dann einfach runterziehen.
Falls du, wie in deiner letzten Antwort statt D doch lieber 1x D stehen haben willst dann ersetze im Code IIf(n > 1, n & "x", "") durch n & "x"
Gruß Mr. K.
|