Check if cellvalue is text or number, even when number is in textformat

Hi there ,

I need to determine if a cellvalue is text or a number , but all cellvalues have the textformat.
ie :

"1500"
"AIRPORT"
"WHSE"
"800"
"450"

I need to check if the value ie "450" is a number and the check whether it is greater or equal to a certain number .
I always encounter an error "type mismatch" if the cellvalue is a textvalue like "WHSE" or "AIRPORT"

       If sNumber(CDbl(ActiveCell.Offset(0, 2).Value)) = True Then
        'If IsNumeric(CDbl(ActiveCell.Offset(0, 2).Value)) Then
            VoertuigType = CDbl(ActiveCell.Offset(0, 2).Value)
        Else
            VoertuigType = ActiveCell.Offset(0, 2).Value
        End If

How can i solve this pls ?

thanks for helping me out.
Mario

Hello JosephP ,
Thanks for your reply , but i think it does not do what i want.
Maybe i need to explain differently.

In an excelsheet we receive , data ( text or numbers ) are stored as text , as you can see in the attached picture TextExcel.jpg.
In column B the data is stored with a green upper left corner , which indicates that data is stored as text.

Now in my code i try to find out if these values are numbers ( even stored as text ) or the values are real text values.

        
         If IsNumeric(ActiveCell.Offset(0, 2).Value) = True Then
             VoertuigType = CDbl(ActiveCell.Offset(0, 2).Value)
        Else
            VoertuigType = ActiveCell.Offset(0, 2).Value
        End If

I've tried to change the cellformat with this code , but when running the code it still gives me "450" ie for the value 450 , and i need 450 as a number to be able to continue processing the code.

ActiveCell.Offset(0, 2).NumberFormat = "General"

Any advice is welcome.

TextExcel.jpg

Many thanks
Mario

Hi JosephP

As requested i uploaded a smaller version a my file, but for security reasons i also deleted some data .
You'll see that in column C there are text as number values.

DumpTest.xlsx

Mario

JosephP ,

Thanks for your patience.
I figured out what to do , but it might not be good programming.
I actually , as you also suggested , reassign the value to the cell by using the following code :

    Do
        ' reassign the value to the cell.
         ActiveCell.Offset(0, 2).Value = ActiveCell.Offset(0, 2).Value
        ' check if the value is numeric or text   
        If IsNumeric(ActiveCell.Offset(0, 2).Value) = True Then
            VTtype = 0
            VoertuigType = CDbl(ActiveCell.Offset(0, 2).Value)
        Else
            VTtype = 1
            VoertuigType = ActiveCell.Offset(0, 2).Value
        End If
        DossierBoeker = ActiveCell.Offset(0, 15).Value
        Dispatcher = ActiveCell.Offset(0, 17).Value

Thank you for your time.
If you have another approach to reassign the value , pls let me know.

Kind regards
Mario