Gruppe
UDF
Problem
DieFormel soll mehrere Suchkriterien berücksichtigen und den ersten gefundenen Wert zurückliefern.
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