VBA-Programmierung in Microsoft Excel

SVERWEIS unter Verwendung mehrer Kriterien

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

    

Beiträge aus dem Excel-Forum zu den Themen UDF und Sverweis