Berschnung aus Userform
01.08.2013 10:40:04
Jomo
Ich habe ein Problem mit einer Userform! Ich verwende folgenden Code:
Private Sub CommandButton1_Click()
Sheets("Gewichtung").Range("AQ14").Value = Me.TextBox3.Text
Unload Me
End Sub
Private Sub TextBox1_Change()
On Error GoTo hell
'erzeugt ERROR wenn keine Zahlen in den Textboxen stehen
Debug.Print IsNumeric(Me.TextBox1.Text * 1)
Debug.Print IsNumeric(Me.TextBox2.Text * 1)
Me.TextBox3.Text = CInt(Me.TextBox1.Text * 1) * CInt(Me.TextBox2.Text * 1)
GoTo heaven:
hell:
Me.TextBox3.Text = "Bitte Eingabe"
heaven:
End Sub
Private Sub TextBox2_Change()
On Error GoTo hell
'erzeugt ERROR wenn keine Zahlen in den Textboxen stehen
Debug.Print IsNumeric(Me.TextBox1.Text * 1)
Debug.Print IsNumeric(Me.TextBox2.Text * 1)
Me.TextBox3.Text = CInt(Me.TextBox1.Text * 1) * CInt(Me.TextBox2.Text * 1)
GoTo heaven:
hell:
Me.TextBox3.Text = "Bitte Eingabe"
heaven:
End Sub
Durch die Eingabe in Textbox 1 & 2 soll in Textbox 3 das Produkt berechnet werden und dieser Wert dann auf das Tabellenblatt Gewichtung AQ14 übernommen werden. Allerdings funktioniert das nicht für jede Eingabe bsp. bei 3000*12 bleibt in Textbox 3 "Bitte Eingabe" stehen und das wird auch in AQ14 übernommen. Andere Werte dagegen werden ohne Problem berechnet.
Woran kan das liegen?Wäre klasse wenn mir jemand weiter helfen kann!
Gruß Jo
Anzeige