![]() |
Finding a string within a cell value
Say I have a string = "abc". Say I have a cell value = "123 abc 456 def" In VB how do I findout if the cell value contains my string? Right now I am trying this: (which of course doesn't work) Set Found = Find(c.Value, req.Value, 1) Where c is my string and req is the cell value I want to look in. TIA!!!! Heather -- peacelittleon ----------------------------------------------------------------------- peacelittleone's Profile: http://www.excelforum.com/member.php...fo&userid=2093 View this thread: http://www.excelforum.com/showthread.php?threadid=39336 |
Finding a string within a cell value
Heather,
The "InStr" Function does what you want. It returns a Variant (Long) specifying the position of the first occurrence of one string within another. Jim Cone San Francisco, USA "peacelittleone" <peacelittleone.1tawim_1123261540.0021@excelforu m-nospam.com wrote in message news:peacelittleone.1tawim_1123261540.0021@excelfo rum-nospam.com... Say I have a string = "abc". Say I have a cell value = "123 abc 456 def" In VB how do I findout if the cell value contains my string? Right now I am trying this: (which of course doesn't work) Set Found = Find(c.Value, req.Value, 1) Where c is my string and req is the cell value I want to look in. TIA!!!! Heather.-- peacelittleone |
Finding a string within a cell value
On Fri, 5 Aug 2005 11:10:41 -0500, peacelittleone
<peacelittleone.1tawim_1123261540.0021@excelforu m-nospam.com wrote: Say I have a string = "abc". Say I have a cell value = "123 abc 456 def" In VB how do I findout if the cell value contains my string? Right now I am trying this: (which of course doesn't work) Set Found = Find(c.Value, req.Value, 1) Where c is my string and req is the cell value I want to look in. TIA!!!! Heather. If InStr(value, c) Then MsgBox "Found" Rgds __ Richard Buttrey Grappenhall, Cheshire, UK __________________________ |
Finding a string within a cell value
Heather,
Sub TryNow() Dim Found As Integer Dim c As Range Dim strFind As String strFind = "abc" Set c = ActiveCell Found = InStr(1, c.Value, strFind) If Found = 0 Then MsgBox "Not Found" Else MsgBox "Found starting at position " & Found End If End Sub HTH, Bernie MS Excel MVP "peacelittleone" <peacelittleone.1tawim_1123261540.0021@excelforu m-nospam.com wrote in message news:peacelittleone.1tawim_1123261540.0021@excelfo rum-nospam.com... Say I have a string = "abc". Say I have a cell value = "123 abc 456 def" In VB how do I findout if the cell value contains my string? Right now I am trying this: (which of course doesn't work) Set Found = Find(c.Value, req.Value, 1) Where c is my string and req is the cell value I want to look in. TIA!!!! Heather. -- peacelittleone ------------------------------------------------------------------------ peacelittleone's Profile: http://www.excelforum.com/member.php...o&userid=20937 View this thread: http://www.excelforum.com/showthread...hreadid=393364 |
Finding a string within a cell value
use instr function to find the string......
instr will return zero if not found or a number 0 showing the start of the search string eg ... search in range A1 for string abc, the 1 at the beginning refers to the starting position of the string you are searching... If instr(1,Range("A1"),"abc") 0 MsgBox "Found It!" Else MsgBox "Not Found" End If instr is case sensitive so use UCase to convert strings if this is not important -- Cheers Nigel "peacelittleone" <peacelittleone.1tawim_1123261540.0021@excelforu m-nospam.com wrote in message news:peacelittleone.1tawim_1123261540.0021@excelfo rum-nospam.com... Say I have a string = "abc". Say I have a cell value = "123 abc 456 def" In VB how do I findout if the cell value contains my string? Right now I am trying this: (which of course doesn't work) Set Found = Find(c.Value, req.Value, 1) Where c is my string and req is the cell value I want to look in. TIA!!!! Heather. -- peacelittleone ------------------------------------------------------------------------ peacelittleone's Profile: http://www.excelforum.com/member.php...o&userid=20937 View this thread: http://www.excelforum.com/showthread...hreadid=393364 |
Finding a string within a cell value
myVar = Instr(1, Range("A1").Value, "abc") if myVar 0 Then MsgBox "found" -- HTH RP (remove nothere from the email address if mailing direct) "peacelittleone" <peacelittleone.1tawim_1123261540.0021@excelforu m-nospam.com wrote in message news:peacelittleone.1tawim_1123261540.0021@excelfo rum-nospam.com... Say I have a string = "abc". Say I have a cell value = "123 abc 456 def" In VB how do I findout if the cell value contains my string? Right now I am trying this: (which of course doesn't work) Set Found = Find(c.Value, req.Value, 1) Where c is my string and req is the cell value I want to look in. TIA!!!! Heather. -- peacelittleone ------------------------------------------------------------------------ peacelittleone's Profile: http://www.excelforum.com/member.php...o&userid=20937 View this thread: http://www.excelforum.com/showthread...hreadid=393364 |
Finding a string within a cell value
Well, just to give another version of what you could use ...
Option Explicit Sub FindTheWhiteRabbit() If c.Text Like "*abc*" Then MsgBox "Found in string." End Sub ... but the InStr function (as previously mentioned) works just as well. :) -- Regards, Zack Barresse, aka firefytr "peacelittleone" <peacelittleone.1tawim_1123261540.0021@excelforu m-nospam.com wrote in message news:peacelittleone.1tawim_1123261540.0021@excelfo rum-nospam.com... Say I have a string = "abc". Say I have a cell value = "123 abc 456 def" In VB how do I findout if the cell value contains my string? Right now I am trying this: (which of course doesn't work) Set Found = Find(c.Value, req.Value, 1) Where c is my string and req is the cell value I want to look in. TIA!!!! Heather. -- peacelittleone ------------------------------------------------------------------------ peacelittleone's Profile: http://www.excelforum.com/member.php...o&userid=20937 View this thread: http://www.excelforum.com/showthread...hreadid=393364 |
All times are GMT +1. The time now is 05:15 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com