Rechnen mit Textboxen in Userform
18.05.2018 07:26:08
David
habe einen kuriosen Fehler in einer Programmierung, der seltsamerweise auch nicht immer auftritt.
Ich nutze eine Userform, und innerhalb dieser Userform zwei Textboxen für Eingaben und eine Textbox, um das Ergebnis auszugeben.
Bei Textbox.Change verändert sich das Ergebnis entsprechend.
Sporadisch (jedes 50. Mal oder so) erscheint in der "Ergebnis"-Textbox ein vollkommen abstruser, riesiger Wert, also etwa 10080, obwohl in den beiden anderen "4,2" und "2,4" steht und daher nur 10,08 rauskommen dürfte.
Was mache ich falsch?
Hier der Code:
Private Sub TextBox3_Change()
If TextBox3.Value "" Then
If IsNumeric(TextBox3.Value) = False Then
TextBox3 = ""
MsgBox ("Bitte hier nur Zahlen eingeben." & vbNewLine & "Evtl. ist die Feststelltaste _
aktiviert.")
Else
TextBox1 = TextBox3.Value * TextBox2.Value
End If
End If
End Sub