error handling af find funktion i vb

Tags:    visual-basic

Hej

Jeg prøver at bruge skrive en lille UDF i vb som bruger excel FIND funktionen til at fortælle mig om en del af en streng indgår i en kolone af strenge. Det går fint når den finder delstrengen, men finder den den ikke giver den mig en #Value! fejl. Forneden et eksempel hvor jeg kun checker 1 celle:
Er der nogen der kan hjælpe mig med at få dette til at virke, jeg ønsker at få et nul ud isted for fejlmeldingen #value!



Function find_vb(part_mlfb As Range, myrange As Range)

Dim c As Integer
c = 1
x = Application.WorksheetFunction.Find(part_mlfb, myrange)
On Error GoTo ErrorHandler

If c <> 0 Then
find_vb = x
Else
find_vb = c
End If


Exit Function

ErrorHandler:
c = 0
Resume Next

End Function

mvh kim



t