VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche

Gruppe

UDF

Bereich

Sverweis

Thema

Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche

Problem

Wie muß eine benutzerdefinierte Funktion aussehen, die eine SVERWEIS()-Suche über mehrere Bereiche durchführt?

Lösung

Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.




StandardModule: basMain

Function SSVerweis( _
   var As Variant, _
   iCol As Integer, _
   ParamArray rng())
   Dim iCounter As Integer
   For iCounter = 0 To UBound(rng)
      If IsError(Application.VLookup(var, _
            rng(iCounter), iCol, 0)) = False Then
            SSVerweis = Application.VLookup(var, _
               rng(iCounter), iCol, 0)
            Exit Function
        End If
    Next iCounter
End Function

    


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