check if cell value is an integer

Question

I would like to check if a value of a cell is an integer (number without comma) or decimal (number with comma). I tried:

1.)

IsNumeric(.Cells(row, column).Value)

-> true also for decimal

2.)

IsNumeric(CInt(.Cells(row, column).Value))

-> Types incompatiple

3.)

If CInt(.Cells(row, column).Value) / .Cells(row, column).Value = 1 

-> Types incompatiple

Answer 1

The MOD() function like this:

=MOD(A1,1)

will return 0 if integer and a value greater than 0 if the number has a decimal.