Find a string into another string
 

Hi,

I would like to know if a String belongs to another string.

for example :
Dim KeyString as String
Dim Sentence as String
Dim Result as Interger

Result = worksheetFunction.Find(KeyString,Sentence)
if (Result<"") then
Msgbox "KeyString exists within Senetence"
EndIf

but it doesn't work.
i just want to check if my KeyString belongs to Sentence, that's all.
basically i store into Sentence the value of a cell.
thx

Maileen

Find a string into another string
 

Try using the instr function. It returns the location of the beginning of one
text string withing another. If the string is not found it returns zero.

HTH

"Maileen" wrote:

Hi,

I would like to know if a String belongs to another string.

for example :
Dim KeyString as String
Dim Sentence as String
Dim Result as Interger

Result = worksheetFunction.Find(KeyString,Sentence)
if (Result<"") then
Msgbox "KeyString exists within Senetence"
EndIf

but it doesn't work.
i just want to check if my KeyString belongs to Sentence, that's all.
basically i store into Sentence the value of a cell.
thx

Maileen

Find a string into another string
 

thanks a lot,
it works great. :)

Maileen

Jim Thomlinson wrote:
Try using the instr function. It returns the location of the beginning of one
text string withing another. If the string is not found it returns zero.

HTH

"Maileen" wrote:


Hi,

I would like to know if a String belongs to another string.

for example :
Dim KeyString as String
Dim Sentence as String
Dim Result as Interger

Result = worksheetFunction.Find(KeyString,Sentence)
if (Result<"") then
Msgbox "KeyString exists within Senetence"
EndIf

but it doesn't work.
i just want to check if my KeyString belongs to Sentence, that's all.
basically i store into Sentence the value of a cell.
thx

Maileen

Find a string into another string
 

WorksheetFunction is an application object.

Try:

Sub test()

Dim KeyString As String

Dim Sentence As String

Dim Result As String

KeyString = "AAAA"

Sentence = "BBBB CCCC AAAA NNNN"


Result = Application.WorksheetFunction.Find(KeyString, Sentance)

If (Result < "") Then

MsgBox "KeyString exists within Senetence"

End If

End Sub

Cheers,

Allan P. London, CPA



"Maileen" wrote in message
...
Hi,

I would like to know if a String belongs to another string.

for example :
Dim KeyString as String
Dim Sentence as String
Dim Result as Interger

Result = worksheetFunction.Find(KeyString,Sentence)
if (Result<"") then
Msgbox "KeyString exists within Senetence"
EndIf

but it doesn't work.
i just want to check if my KeyString belongs to Sentence, that's all.
basically i store into Sentence the value of a cell.
thx

Maileen

Find a string into another string
 

Your code will work if the string is found, but if not, it raises an error.
Instr as suggested by Jim Thomlinson would seem a better choice.

--
Regards,
Tom Ogilvy

"alondon" wrote in message
...
WorksheetFunction is an application object.

Try:

Sub test()

Dim KeyString As String

Dim Sentence As String

Dim Result As String

KeyString = "AAAA"

Sentence = "BBBB CCCC AAAA NNNN"


Result = Application.WorksheetFunction.Find(KeyString, Sentance)

If (Result < "") Then

MsgBox "KeyString exists within Senetence"

End If

End Sub

Cheers,

Allan P. London, CPA



"Maileen" wrote in message
...
Hi,

I would like to know if a String belongs to another string.

for example :
Dim KeyString as String
Dim Sentence as String
Dim Result as Interger

Result = worksheetFunction.Find(KeyString,Sentence)
if (Result<"") then
Msgbox "KeyString exists within Senetence"
EndIf

but it doesn't work.
i just want to check if my KeyString belongs to Sentence, that's all.
basically i store into Sentence the value of a cell.
thx

Maileen