getal in kolom controleren

[123peter]

ik wil in een macro een controle inbouwen die controleerd of ergens in de kolom C1 t/m C250 een getal staat.

Dus if (ergen in kolom C1:C250 een getal) then

 

[VenA]

bv

Sub VenA()
On Error Resume Next
  x = Columns(3).SpecialCells(2, 1).Count
  MsgBox x
End Sub

of

MsgBox Application.Count(Columns(3))

 

[Gijsbert1]

Formule is voldoende toch?

=ALS(SOM(C1:C250)>0;"er staat een getal";"")

 

[Jack Nouws]

of zo

    For Each c In Range("C1:C250")
        If IsNumeric(c) Then
            c.Offset(, 1) = "Ja"
        Else
            c.Offset(, 1) = "Nee"
        End If
    Next

of

    For Each c In Range("C1:C250")
        c.Offset(, 1) = IIf(IsNumeric(c), "Ja", "Nee")
    Next