hab mal wieder ein problem. ich habe in meiner userform drei textboxen, wo ich zahlen eingebe. die drei zahlen sollen addiert werden und in einem label angezeigt werden.
folgenden code habe ich geschrieben:
Private Sub TextBox4_Change()
If Len(TextBox4.Text) = 0 Then Exit Sub
If Not IsNumeric(TextBox4.Text) Then
Beep
MsgBox "Nur Zahlen bitte!"
TextBox4.Text = ""
End If
If TextBox4 = "" Then Exit Sub
If Not IsNumeric(TextBox4) Then
SendKeys "{BS}"
Beep
Else
If TextBox5 <> "" Then
Label13.Caption = CDbl(Mid(TextBox4, 1, 3)) + CDbl(Mid(TextBox5, 1, 3)) _
+ CDbl(Mid(TextBox6, 1, 3))
Else
Label13.Caption = CDbl(Mid(TextBox4, 1, 3))
End If
End If
Worksheets("Statistik").Range("G8") = Label13.Caption
Worksheets("Statistik").Range("D8") = TextBox4
End Sub
Private Sub TextBox5_Change()
If Len(TextBox5.Text) = 0 Then Exit Sub
If Not IsNumeric(TextBox5.Text) Then
Beep
MsgBox "Nur Zahlen bitte!"
TextBox5.Text = ""
End If
If TextBox5 = "" Then Exit Sub
If Not IsNumeric(TextBox5) Then
SendKeys "{BS}"
Beep
Else
If TextBox6 <> "" Then
Label13.Caption = CDbl(Mid(TextBox4, 1, 3)) + CDbl(Mid(TextBox5, 1, 3)) _
+ CDbl(Mid(TextBox6, 1, 3))
Else
Label13.Caption = CDbl(Mid(TextBox5, 1, 3))
End If
End If
Worksheets("Statistik").Range("G8") = Label13.Caption
Worksheets("Statistik").Range("E8") = TextBox5
End Sub
Private Sub TextBox6_Change()
If Len(TextBox6.Text) = 0 Then Exit Sub
If Not IsNumeric(TextBox6.Text) Then
Beep
MsgBox "Nur Zahlen bitte!"
TextBox6.Text = ""
End If
If TextBox6 = "" Then Exit Sub
If Not IsNumeric(TextBox5) Then
SendKeys "{BS}"
Beep
Else
If TextBox5 <> "" Then
Label13.Caption = CDbl(Mid(TextBox4, 1, 3)) + CDbl(Mid(TextBox5, 1, 3)) _
+ CDbl(Mid(TextBox6, 1, 3))
Else
Label13.Caption = CDbl(Mid(TextBox6, 1, 3))
End If
End If
Worksheets("Statistik").Range("G8") = Label13.Caption
Worksheets("Statistik").Range("F8") = TextBox5
End Sub
mein problem: er addiert und zeigt die zahlen erst, wenn ich in textbox6 eine eingabe gemacht habe.
was mach ich verkehrt?
für eure hilfe wäre ich dankbar.
gruß
martin