If activecell is text I get a runtime error with the code below (o
course...).

I'd like to goto Nosearch, if cell value is text.
How can I write this into the below code?

Dim iSpecific As Integer
iSpecific = ActiveCell.Value

If ActiveCell.Value = "" Then
GoTo Nosearch
End I

--
Message posted from http://www.ExcelForum.com

Dim iSpecific As Integer
if not( isnumber(activeCell)) or Activecell.Text = "" then
goto NoSearch
End if

iSpecific = ActiveCell.Value


--
Regards,
Tom Ogilvy

"Steff_DK " wrote in message
...
If activecell is text I get a runtime error with the code below (of
course...).

I'd like to goto Nosearch, if cell value is text.
How can I write this into the below code?

Dim iSpecific As Integer
iSpecific = ActiveCell.Value

If ActiveCell.Value = "" Then
GoTo Nosearch
End If


---
Message posted from http://www.ExcelForum.com/

Hi
try

Dim iSpecific As Integer
If Isnumeric(activecell.value) then
iSpecific = ActiveCell.Value
elseif ActiveCell.Value < "" Then
GoTo Nosearch
End If

-----Original Message-----
If activecell is text I get a runtime error with the code
below (of
course...).

I'd like to goto Nosearch, if cell value is text.
How can I write this into the below code?

Dim iSpecific As Integer
iSpecific = ActiveCell.Value

If ActiveCell.Value = "" Then
GoTo Nosearch
End If


---
Message posted from http://www.ExcelForum.com/

.

Hi Steff,

If Not IsNumeric(ActiveCell.Value) Then
GoTo NoSearch
End If

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Steff_DK " wrote in message
...
If activecell is text I get a runtime error with the code below (of
course...).

I'd like to goto Nosearch, if cell value is text.
How can I write this into the below code?

Dim iSpecific As Integer
iSpecific = ActiveCell.Value

If ActiveCell.Value = "" Then
GoTo Nosearch
End If


---
Message posted from http://www.ExcelForum.com/

Hi Tom
you probably meant IsNumeric instead of IsNumber :-)
Besides that I'm still not sure what the OP really wants
to check :-)

-----Original Message-----
Dim iSpecific As Integer
if not( isnumber(activeCell)) or Activecell.Text = "" then
goto NoSearch
End if

iSpecific = ActiveCell.Value


--
Regards,
Tom Ogilvy

"Steff_DK "
wrote in message
...
If activecell is text I get a runtime error with the
code below (of
course...).

I'd like to goto Nosearch, if cell value is text.
How can I write this into the below code?

Dim iSpecific As Integer
iSpecific = ActiveCell.Value

If ActiveCell.Value = "" Then
GoTo Nosearch
End If


---
Message posted from http://www.ExcelForum.com/



.

Still no luck:

Runtime error with IsNumber

'Sub or function not defined

--
Message posted from http://www.ExcelForum.com

ActiveCell.ClearContents
? isnumeric(activecell)
True


--
Regards,
Tom Ogilvy

"Frank Kabel" wrote in message
...
Hi
try

Dim iSpecific As Integer
If Isnumeric(activecell.value) then
iSpecific = ActiveCell.Value
elseif ActiveCell.Value < "" Then
GoTo Nosearch
End If

-----Original Message-----
If activecell is text I get a runtime error with the code
below (of
course...).

I'd like to goto Nosearch, if cell value is text.
How can I write this into the below code?

Dim iSpecific As Integer
iSpecific = ActiveCell.Value

If ActiveCell.Value = "" Then
GoTo Nosearch
End If


---
Message posted from http://www.ExcelForum.com/

.

IsNumeric!!! (not isnumber...)

Thanks all! :o

--
Message posted from http://www.ExcelForum.com

Hi Tom
good point :-)

--
Regards
Frank Kabel
Frankfurt, Germany


Tom Ogilvy wrote:
ActiveCell.ClearContents
? isnumeric(activecell)
True



"Frank Kabel" wrote in message
...
Hi
try

Dim iSpecific As Integer
If Isnumeric(activecell.value) then
iSpecific = ActiveCell.Value
elseif ActiveCell.Value < "" Then
GoTo Nosearch
End If

-----Original Message-----
If activecell is text I get a runtime error with the code below (of
course...).

I'd like to goto Nosearch, if cell value is text.
How can I write this into the below code?

Dim iSpecific As Integer
iSpecific = ActiveCell.Value

If ActiveCell.Value = "" Then
GoTo Nosearch
End If


---
Message posted from http://www.ExcelForum.com/

.