VBA Excel Zelle auf Integer oder Double prüfen

Question

Wie kann ich prüfen ob in einem Feld eine Ganzzahl oder ein Double steht?

Dim cell As Range
Set cell = Cells(1, 1)

If VarType(cell.Value) = vbDouble Then
    MsgBox "Double"
ElseIf VarType(cell.Value) = vbInteger Then
    MsgBox "Integer"
Else
    MsgBox "Fehler"
End If

Answer 1

Wenn du sicherstellen möchtest, dass auch ganze Zahlen als Double erkannt werden, könntest du den Wert explizit in einen Double-Typ konvertieren und dann den Datentyp überprüfen.

If VarType(CDbl(cell.Value)) = vbDouble Then
    MsgBox "Double"
ElseIf VarType(CInt(cell.Value)) = vbInteger Then
    MsgBox "Integer"
Else
    MsgBox "Fehler"
End If