AW: Fragen zum SVerweis
02.09.2020 11:12:57
Daniel
HI
wie gesagt, bei VBA-Bescheiden mit selbst geschriebener Funktion mit folgendem Code in einem allgemeinen Modul.
damit steht dir die Funktion SVerweisMulti zur verfügung, die das gewünschte macht.
Parametrisierung für die ersten drei Parameter wie der normale SVerweis, der vierte Parameter ist das Trennzeichen.
Function SVerweisMulti(SuchWert As String, _
Suchbereich As Range, _
Spalte As Long, _
Optional Trennzeichen As String = "") As String
Dim arr
Dim z As Long
Dim Erg As String
arr = Intersect(Suchbereich.Parent.UsedRange, Suchbereich).Value
For z = 1 To UBound(arr, 1)
If CStr(arr(z, 1)) Like SuchWert Then Erg = Erg & Trennzeichen & arr(z, Spalte)
Next
SVerweisMulti = Mid(Erg, Len(Trennzeichen) + 1)
End Function