lima-city: Webhosting, Domains und Cloud
1 Pluspunkt 0 Minuspunkte

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
von  

1 Antwort

0 Pluspunkte 0 Minuspunkte

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
von  
Diese Community basiert auf dem Prinzip der Selbstregulierung. Beiträge werden von Nutzern erstellt, bewertet und verbessert – ganz ohne zentrale Moderation.

Wer hilfreiche Fragen stellt oder gute Antworten gibt, sammelt Punkte. Mit steigender Punktzahl erhalten Mitglieder automatisch mehr Rechte, zum Beispiel

  • Kommentare verfassen
  • Fragen und Antworten bewerten
  • Themen von Fragen bearbeiten
  • Fragen, Antworten und Kommentare bearbeiten
  • Inhalte ausblenden

So entsteht eine Plattform, auf der sich Qualität durchsetzt – getragen von einer engagierten Gemeinschaft.

2.3k Fragen

2.8k Antworten

265 Kommentare

14 Nutzer