[VBA / Excel2003] Vlookup value not found return number

[Jericho NutS]

Dag,

Bij het schrijven van mijn macro ben ik op volgende issue gestoten waar ik via Google niet direct een antwoord op vind (plossingen zijn allemaal niet VBA gerelateerd)
Bestaat er een manier om met vba volgende functionaliteit te krijgen
Ik wens een waarde terug te vinden uit een tabel. Als deze waarde niet in de tabel voorkomt moet er ipv een error een getal (vb 4) teruggeven worden.

Ik bekijk eerst of er in een cell "iets" staat om dan de vlookup op te roepen.

code:

Dim sheet1 As Worksheet
Dim sheet2 As Worksheet
Set sheet1 = ActiveWorkbook.Sheets("DATASHEET")
Set sheet2 = ActiveWorkbook.Sheets("Productgroep")

Lrow = Cells(Rows.Count, 3).End(xlUp).row

For j = 2 To Lrow

If Not (IsEmpty(Cells(j, 4))) Then
value = Application.WorksheetFunction.VLookup(sheet1.Cells(j, 4), sheet2.Range("A:C"), 2, False)
End If

'...

Next j

[Lustucru]

Iets als:

code:

Function f

zoekResultaat=bronRange.find(zoekwaarde)
If Isnull(zoekResultaat) then
   f = eenWaarde
else
   f = ietsAnders
end if
End Function

[pedorus]

Of gewoon met foutafhandeling:

Visual Basic:

on error resume next
value = Application.WorksheetFunction.VLookup(sheet1.Cells(j, 4), sheet2.Range("A:C"), 2, False)
if err.number<>0 then value="default"
on error goto 0

[Jericho NutS]

Met de foutafhandeling van pedorus werkt dit perfect!

Bedankt voor de replies