Ich und die Textbox in UserForm
20.07.2004 21:22:05
Hartmut
Es hat sich erneut bei der Textbox ein Problem aufgetan.
Hier der Code:
Private Sub TextBox1_Change()
Range("Tank200!A3") = TextBox1.Value
TextBox4.Value = Range("tank200!d3").Value
TextBox5.Value = Range("tank200!e3").Value
TextBox6.Value = Range("tank200!f3").Value
End Sub
Private Sub TextBox2_Change()
Range("Tank200!B3") = TextBox2.Value
TextBox4.Value = Range("tank200!d3").Value
TextBox5.Value = Range("tank200!e3").Value
TextBox6.Value = Range("tank200!f3").Value
End Sub
Private Sub TextBox3_Change()
Range("Tank200!C3") = TextBox3.Value
TextBox4.Value = Range("tank200!d3").Value
TextBox5.Value = Range("tank200!e3").Value
TextBox6.Value = Range("tank200!f3").Value
End Sub
Private Sub UserForm_Activate()
TextBox1.Value = Range("tank200!a3").Value
TextBox2.Value = Range("tank200!b3").Value
TextBox3.Value = Range("tank200!c3").Value
TextBox4.Value = Range("tank200!d3").Value
TextBox5.Value = Range("tank200!e3").Value
TextBox6.Value = Range("tank200!f3").Value
End Sub
In der Textbox 1-3 werden Werte eingetragen, die zu weiteren Berechnung benötigt werden. Nur gibt es jetzt ein Problem bei der Eingabe von negativen Zahlen. Typenunveträglichkeit?
Kann mir auch hierbei geholfen werden?