Gruppe
UDF
Problem
In Spalte B stehen Zeichenfolgen. Wie kann ich diese immer dann, wenn in Spalte A in der gleichen Zeile der Begriff "Anzahl" steht, in einer Zelle zusammenfassen?
StandardModule: basMain
Function Sammeln(rngAll As Range) As String
Dim rng As Range
Dim sTxt As String
For Each rng In rngAll.Columns(1).Cells
If rng.Value = "Anzahl" Then
sTxt = sTxt & rng.Offset(0, 1) & ","
End If
Next rng
If Len(sTxt) > 1 Then
Sammeln = Left(sTxt, Len(sTxt) - 1)
End If
End Function