Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

SVERWEIS unter Verwendung mehrer Kriterien

Gruppe

Sverweis

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