VBA zickt: ISERROR & IF
03.12.2013 13:36:14
Simon
ich habe ein kleines Problem beim Aufsatz einer VBA Funktion, wo ich die IF Funktion mit ISERROR verknüpfen will.
Das aufgesetzte Makro sieht folgendermaßen aus:
Function recon(testValue As Variant, testrng As Range)
testValue = WorksheetFunction.VLookup(testValue, testrng, 1, False)
If IsError(testValue) Then
recon = "missing"
Else
recon = "OK"
End If
Zweck des Makros ist über die VLOOKUP Funktion herauszufinden, ob bestimmte Elemente in einem zu untersuchenden Bereich enthalten sind, da VLOOKUP bei matchen eines relevanten Wertes den gefunden Wert wieder gibt, ansonsten ein Wertefehler zurückspielt.
Leider scheitere ich, wie eingangserwähnt, an der ISERROR Funktion.
Diverse Versuche mit On Error goto oder WORKSHEETFUNKTION.ISERROR etc. sind gescheitert.
Auch der Versuch mit CVERR(xlerrvalue) hat mir zur Lösung des Problems nicht beigetragen.
Hat jemand von euch eine zündende Idee?
Beste Grüße
Simon