ich möchte in eimen Code (double Click auf eine Zelle) prüfen ob die Spalten Zahl eine gerade Zahl ist.
Mit den mir bekannten Funktionen komme ich nicht weiter ...
If Intersect(Target, Range("22:22")) Is Nothing Then Exit Sub
Spalte = ActiveCell.Column
Spalte = Spalte / 2
On Error Resume Next
Spalte = CInt(Spalte)
On Error GoTo 0
Prüfung = TypeName(Spalte) 'Prüfung ob Spalte Interger, ganze Zahl
If Not Prüfung = "Integer" Then
Exit Sub
End If
in dem Fall ergibt die Prüfung immer Integer ...
wer kann mir auf die Sprünge helfen
Gruß Thomas