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