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!
