Lookup Varianten (VBA)

Thu, 04 Jun 2026 01:41:00 +0100

“The hardest thing of all is to find a black cat in a dark room, especially if there is no cat.” [Confucius]

Abstract

Hier stelle ich einige VERWEIS (LOOKUP) Varianten vor, die ich hilfreich finde:

sbLookup
sbClosest
sbLookupAddress
Vlookupall
Vlookupallarr
Lookup2

Appendix – Programmcode sbLookup

Bitte den Haftungsausschluss im Impressum beachten.

Function sbLookup(vLookupValue As Variant, _
            rTableArray As Range, _
            Optional ByVal lOccurrence As Long = 1, _
            Optional lColumnOffset As Long, _
            Optional lRowOffset As Long) As Variant
'Source (EN): https://www.sulprobil.de/lookup_variants_en/
'Source (DE): https://www.berndplumhoff.de/lookup_variants_de/
'(C) (P) by Bernd Plumhoff 09-May-2010 PB V0.1
'Looks up lOccurrence'th occurrence of vLookupValue in rTableArray
'and returns found cell offset by lRowOffset rows and lColumnOffset
'columns. If lOccurrence is negative the search is done bottom-up
'(i.e. -1 finds the last value, -2 last but one, etc.).
'This function was inspired by the "Ultimate" Excel Lookup Function OzgridLookup:
'https://www.ozgrid.com/VBA/ultimate-excel-lookup-function.htm

Dim i As Long
Dim rFound As Range
Dim iSearchDir As Integer

If lOccurrence >= 0 Then
    iSearchDir = xlNext
Else
    iSearchDir = xlPrevious
    lOccurrence = -lOccurrence
End If

With rTableArray
    If rTableArray.Cells(1, 1) = vLookupValue And lOccurrence = 1 Then
        sbLookup = .Cells(1, 1)(1, lColumnOffset + 1)
        Exit Function
    Else
        Set rFound = .Cells(1, 1)
        For i = 1 To lOccurrence
            Set rFound = rTableArray.Find(What:=vLookupValue, After:=rFound, _
                    LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlRows, _
                    SearchDirection:=iSearchDir)
        Next i
    End If
End With

sbLookup = rFound.Offset(lRowOffset, lColumnOffset)

End Function

Appendix – Programmcode sbClosest

Bitte den Haftungsausschluss im Impressum beachten.

Lookup on Bernd Plumhoff

Lookup Varianten (VBA)

Abstract

Appendix – Programmcode sbLookup

Appendix – Programmcode sbClosest