Fout 2042 bij macro Vlookup

[JoVe]

Hallo iedereen,

 

Ik wens een macro uit te voeren waar Vlookup in verwerkt zit, maar krijg steeds de fout 2042

Weet iemand hier raad me?

 

Private Sub FilterV(val1 As String, val2 As String, val3 As String, val4 As String)

Application.ScreenUpdating = False

 

Dim r As Integer

Dim s As Variant

Dim result As Variant

Dim finalResult As String

 

r = 5

    

Do

    s = Cells(r, 1)

    result = Application.VLookup(s, Sheets("V3").Range("A2:G465").Value, 6, False)

    finalResult = CStr(result)

    If InStr(1, finalResult, val1, 1) Or InStr(1, finalResult, val2, 1) Or InStr(1, finalResult, val13, 1) Or InStr(1, finalResult, val4, 1) Then

       Rows.EntireRow®.Delete

       r = r - 1

    End If

    r = r + 1

Loop Until Cells(r, 1) = ""

Application.ScreenUpdating = True

End Sub

 

Alvast bedankt!

 

[alpha]

Moeilijk om te antwoorden als je geen voorbeeldbestand toevoegt.

Mogelijke oorzaken:

- het type resultaat wat je zoekt (bv. integer, string, variant) komt niet overeen met het gevonden resultaat.

- Je gaat er in je macro vanuit dat de gezochte waarden altijd voorkomen. Als dat zo is, dan is dat prima, maar als dat niet zo is, dan zal vlookup tot een foutmelding leiden.