Gruppe
UDF
Bereich
Sverweis
Thema
SVERWEIS unter Verwendung mehrer Kriterien
Problem
DieFormel soll mehrere Suchkriterien berücksichtigen und den ersten gefundenen Wert zurückliefern.
Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
StandardModule: Modul1
Function myVLOOKUP(rng As Range, _
iResult As Integer, _
ParamArray varSearch() As Variant)
Dim var As Variant
Dim iCounter As Integer
For iCounter = 0 To UBound(varSearch)
var = Application.VLookup( _
varSearch(iCounter), rng, iResult, 0)
If Not IsError(var) Then
myVLOOKUP = var
Exit Function
End If
Next iCounter
myVLOOKUP = "#NV"
End Function