Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Prüfung, ob es sich um einen Integer-Wert handelt

Gruppe

Numerisch

Problem

Wie kann ich über eine benutzerdefinierte Funktion prüfen, ob es sich beim Eingabewert um einen Integer-Wert handelt?

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Function IntegerTest(dValue As Double) As Boolean
   If dValue > -32769 And dValue < 32768 And _
      dValue - Fix(dValue) = 0 Then
      IntegerTest = True
   Else
      IntegerTest = False
   End If
End Function