Warum gibt IfError einen Fehler zurück?

Question

Ich versuche, einen Wrapper für die INDEX/MATCH-Lookup-Methode zu erstellen (die schneller/besser als die normale SVERWEIS-Methode ist), indem Sie eine benutzerdefinierte Funktion erstellen und sie anschließend als Add-In laden.

So weit so gut, aber mein gewünschtes Verhalten ist, dass, wenn der zu suchende Wert nicht gefunden wird, sollte es leer ("") und nicht #VALUE !. So versuche ich, die IfError Work zu verwenden, um diese auf die gleiche Weise zu erreichen, ich auf einem Excel-Sheet würde:

Function FastLookup(parLookupKey As Variant, parLookupRange As Range, parReturnRange As Range) As Variant 

    FastLookup = Application.WorksheetFunction.IfError(Application.WorksheetFunction.Index(parReturnRange, Application.WorksheetFunction.Match(parLookupKey, parLookupRange, 0)), "") 

End Function 

Auch dies noch gibt #VALUE! Wenn im parLookupRange-Bereich kein Wert gefunden wird.

Unnötig zu sagen, wenn ich = IFERROR (FastLookup (H6, E3: E6, F3: F6), "") direkt auf der Excel-Tabelle verwenden, funktioniert es.

Irgendwelche Ideen, wie man die VBA-Version von IfError funktioniert?

Answer 1

Da der Fehler nie über die MATCH-Funktion in Vba. Sobald das einen Fehler auslöst, wird der Code gestoppt.

Verwenden Sie stattdessen:

Function FastLookup(parLookupKey As Variant, parLookupRange As Range, parReturnRange As Range) As Variant 

    Dim t As Long 
    On Error Resume Next 
    t = Application.WorksheetFunction.Match(parLookupKey, parLookupRange, 0) 
    On Error GoTo 0 
    If t > 0 Then 
     FastLookup = parReturnRange(t) 
    Else 
     FastLookup = "" 
    End If 

End Function 

Wir haben jetzt den Fehler erfassen und sie ignorieren. Dann testen wir es und geben den richtigen Wert zurück.