AW: Anzeige TExtbox für Zischensummen
02.04.2009 21:54:39
Kentucky
Vielen Dank!
ich habe versucht, folgenden code vorweg einzugeben, den ich anderweitig fand:
Dim a, b, c, d, e As String
Function My_IsNumeric(Txt As String) As Boolean
If (Txt "") And (Not IsNumeric(Txt) Or InStr(Txt, ".") 0) Then
My_IsNumeric = False
Else
My_IsNumeric = True
End If
End Function
Private Sub TextBox1_Change()
Dim Txt As String
Txt = TextBox1.Text
If My_IsNumeric(Txt) Then
a = TextBox1.Value
TextBox5_Change
Exit Sub
Else
Beep
MsgBox "Bitte nur zahlen eingeben)!", vbCritical
TextBox1.Text = ""
End If
Private Sub TextBox2, TextBox3, TextBox4 analog! .....
End Sub
Private Sub Textbox 5_Change()
TextBox5.Value = CDbl(a) + CDbl(b) + CDbl(c) + CDbl(d)
Exit Sub
End Sub
jetzt werden in der Textbox5 die werte immer in einer kette hintereinander geschaltet, anstatt _
addiert? Findet ihr den Fehler?
Gruss, Kentucky
End Sub