Gruppe
UDF
Problem
Wie kann ich in einer SVERWEIS-Formel mehrere Fundstellen als Zeichenfolge zusammenfassen?
StandardModule: basMain
Function sSVERWEIS(sName As String, rng As Range) As Variant
Dim rngAct As Range
Dim sResult As String
For Each rngAct In rng.Columns(1).Cells
If rngAct = sName Then
sResult = sResult & rngAct.Offset(0, 1) & Chr(10)
End If
Next rngAct
sSVERWEIS = Left(sResult, Len(sResult) - 1)
End Function