ich habe 2 Funktionen:
Die erste macht einen Sverweis über mehrere Bereiche:
Function LJVerweis2B(sBegriff, Spalte, ParamArray C()) Dim i% For i = 0 To UBound(C()) If IsError(Application.VLookup(sBegriff, _ C(i), Spalte, 0)) = False Then LJVerweis2B = Application.VLookup(sBegriff, _ C(i), Spalte, 0) End If Next i End Function
und
die 2te fügt mehrere Fundstellen zusammen:
Function LJVERWEISt(strName As String, rngBereich As Range) As Variant
Dim rngAct As Range
Dim strErgebnis As String
Application.Volatile
For Each rngAct In rngBereich.Columns(1).Cells
If rngAct = strName Then
strErgebnis = strErgebnis & rngAct.Offset(0, 1)
End If
Next rngAct
LJVERWEISt = Left(strErgebnis, Len(strErgebnis))
End Function
Ich brauche aber jetzt eine Funktion die durch mehrere Bereiche geht und alle Fundstellen aneinanderreiht. Geht das?
Kleine Bonusfrage:
Die 2te Funktion sucht nur in der ersten Spalte - wie müßte es aussehen wenn es in allen Spalten suchen sollte?
Gruß lobby007