VBA verketten mit 2 Bereichen/Kriterien

Function verketten2(Suchbereich As Range, Suchbegriff As String, Ergebnisbereich As Range,  _
Optional Trennzeichen As String) As String
Application.Volatile
Dim C As Range, S As String
For Each C In Suchbereich
If C = Suchbegriff Then
S = S & C.Offset(0, Ergebnisbereich.Column - Suchbereich.Column) & Trennzeichen
End If
Next C
If Len(S) = Len(Trennzeichen) Then
S = ""
Else
S = Left(S, Len(S) - Len(Trennzeichen))
End If
verketten2 = S
End Function