Datentyp Prüfen

  • VB

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Datentyp Prüfen

    Wie kann man in VB prüfen, ob eine Eingabe numerisch ist oder nicht?
    also ich muss die Eingabe am ende als DOUBLE haben, und dann damit weiterrechnen. wenn nun jemand einen Buchstaben in das Feld eingibt, gibt es Logischerweise einen Fehler.
    Mit dieser Überprüfung will ich diesen Fehler abfangen - wie geht das??

    mein Code...

    Quellcode

    1. Private Sub CommandButton7_Click()
    2. Dim Wert As Double, Wert1 As Double
    3. If Me.TextBox17.Value = "" Then
    4. Me.TextBox17.Value = 0
    5. End If
    6. Wert1 = Replace(Me.TextBox17.Value, ",", ".")
    7. Wert = Wert1 * 25.4
    8. Me.TextBox18.Value = Replace(Wert, ",", ".")
    9. Me.TextBox17.Value = Replace(Wert1, ",", ".")
    10. End Sub
    mein PC . . meine Blackliste . . Download mit FlashFXP
    [SIZE="2"]im moment NICHT aktiv, PN's werden warscheinlich nicht gelesen^^[/SIZE]
  • DANKE ! hat mir weitergeholfen.
    habe es nun so gelöst:

    Quellcode

    1. 'Umrechenen von Milimeter auf Zoll
    2. Private Sub CommandButton7_Click()
    3. Dim Wert As Double
    4. Dim Bool1 As Boolean
    5. If Me.TextBox17.Value = "" Then
    6. Me.TextBox17.Value = 0
    7. End If
    8. Bool1 = IsNumeric(Me.TextBox17.Value)
    9. If Bool1 = "True" Then
    10. Wert = Me.TextBox17.Value * 25.4
    11. Me.TextBox18.Value = Replace(Wert, ",", ".")
    12. Else
    13. If Me.CheckBox1.Value = "Wahr" Then
    14. MsgBox "Eingabe ist nicht Numerisch!"
    15. End If
    16. Me.TextBox18.Value = ""
    17. End If
    18. End Sub
    Alles anzeigen
    mein PC . . meine Blackliste . . Download mit FlashFXP
    [SIZE="2"]im moment NICHT aktiv, PN's werden warscheinlich nicht gelesen^^[/SIZE]
  • @woodman

    zu Deinem Code: Du verwendest bei If abfragen "True" und "Wahr"; Du kannst aber einfach True oder False (ohne Anführungszeichen schreiben), da es sonst (soweit ich weiß) eventuell bei Leuten die eine andere Systemsprache haben, zumindest bei "Wahr" Komplikationen geben könnte, da dieser Ausdruck eben nur auf Deutsch "Wahr" heißt.