Public Function ISTGERADE(Target As Excel.Range) As String
     If IsNumeric(Target.Value) Then
          If Target.Value MOD 2 = 0 Then
                  ISTGERADE = "Gerade"
          Else
                 ISTGERADE = "Ungerade"
         End If
    End If
End Function