search a string withing a string : find / search hangs

hi,

i want to know if a string is within another string. If i use find/search, the function hangs if the string is not found.....instead of return an "not found code", as i expected...


So which function to use to find a string in another one?


Regards,
iTarnak

i have forgotten to say:

the strings are not in cells.values: they are in hyperlinks. (hyperlink.address)

That works great

Function searchStr(searchedStr, otherStr)
On Error GoTo errorHandler
indice = Application.WorksheetFunction.Find(searchedStr, otherStr)
searchStr = indice
Exit Function

errorHandler:
On Error GoTo 0
searchStr = -1
End Function

Hi Itarnak,

Look at the InStr function in VBA help.


---
Regards,
Norman



"itarnak" <[email protected]> wrote in
message news:[email protected]...
>
> hi,
>
> i want to know if a string is within another string. If i use
> find/search, the function hangs if the string is not found.....instead
> of return an "not found code", as i expected...
>
>
> So which function to use to find a string in another one?
>
>
> Regards,
> iTarnak
>
>
> --
> itarnak
> ------------------------------------------------------------------------
> itarnak's Profile:
> http://www.excelforum.com/member.php...o&userid=27865
> View this thread: http://www.excelforum.com/showthread...hreadid=478738
>

that would be one of the slower ways to do it:

Function searchStr(searchedStr, otherStr)
On Error GoTo errorHandler
indice = Instr(1,searchedStr, otherStr,vbTextCompare)
searchStr = indice
Exit Function

errorHandler:
On Error GoTo 0
searchStr = -1
End Function

if you want it to be case sensitive like FIND ("A" <> "a"), then change
vbTextCompare to vbBinaryCompare

or just call instr directly instead of reinventing the wheel.

--
Regards,
Tom Ogilvy



"itarnak" <[email protected]> wrote in
message news:[email protected]...
>
> That works great
>
> Function searchStr(searchedStr, otherStr)
> On Error GoTo errorHandler
> indice = Application.WorksheetFunction.Find(searchedStr, otherStr)
> searchStr = indice
> Exit Function
>
> errorHandler:
> On Error GoTo 0
> searchStr = -1
> End Function
>
>
> --
> itarnak
> ------------------------------------------------------------------------
> itarnak's Profile:
http://www.excelforum.com/member.php...o&userid=27865
> View this thread: http://www.excelforum.com/showthread...hreadid=478738
>