|
Hallo zusammen,
ich habe mehere Tabellenblätter die durch ein Eingabeformular gefüllt werden, dies funktioniert auch so wie ich es möchte.
In meiner Userform habe ich 1 Combobox (in der ich das aktuelle Tabellenblatt auswähle in das die Eingaben aus der Userform eingetragen werden sollen),
1 Textbox (in der das aktuelle Datum steht) 18 Textboxen (in denen Zahlen von 1-7 eingegeben werden), 1 Textbox1 (in der sollen alle 1er Werte (Asse) aus den 18 Textboxen gezählt werden), 1 Textbox2 (dort werden alle zahlen der 18 textboxen aufaddiert die über 2 (Fehler)sind) und 1 Textbox3 (wo das Gesamtergebnis auf addiert wird aus den 18 textboxen)
Mein Code für Textbox1 lautet
Private Sub Bahn1_Change()
TextBox3.Text = Val(Bahn1.Text) + Val(Bahn2.Text) + Val(Bahn3.Text) + Val(Bahn4.Text) + Val(Bahn5.Text) + Val(Bahn6.Text) + Val(Bahn7.Text) + Val(Bahn8.Text) + Val(Bahn9.Text) + Val(Bahn10.Text) + Val(Bahn11.Text) + Val(Bahn12.Text) + Val(Bahn13.Text) + Val(Bahn14.Text) + Val(Bahn15.Text) + Val(Bahn16.Text) + Val(Bahn17.Text) + Val(Bahn18.Text)
If Val(Bahn1.Text) < 2 Then
TextBox1.Text = TextBox1.Text + 1
End If
If Val(Bahn1.Text) > 2 Then
TextBox2.Text = TextBox2.Text + Val(Bahn1.Text) - 2
End If
If Val(Bahn1.Text) = 0 Then
MsgBox "Mach weiter so, dann schafst du die Bahnen unter 18!"
End If
If Bahn1 > 7 Then
MsgBox "Du hast nur 6 Schläge!"
End If
End Sub
So steht der Code auch in den Textbox Bahn2 - Bahn18
Mein Problem ist das in Textbox1 (Asse) alle Werte mit 1 aufadiert werden allerdings wenn ich eine Textbox von den Wert 1 auf 2 ändere wird nicht der Wert in der Textbox1 (Asse) aktuallisiert, korrigiere ich das feld welches ich von 1 in 2 geändert habe nochmals in1 ab wird im Textbox Asse noch mal 1 dazu addiert.
Ich hoffe ich konnte mich klar ausdrücken und hier gibt es jemanden der mir bei meinem Problem helfen kann.
Danke schon mal für eure Hilfe
Gruß Chrimaet
|