Mein Plan ist es über 5 Textfelder einer Userform im 6 Textfeld das Ergebnis der ersten 5 textfelder (Addition) anzuzeigen.
kann mir jemand helfen?
Ps.: habe kaum VBA kenntnisse
Gruß Thomas
Private Sub TextBox5_Change()
TextBox6 = CInt(TextBox1) + CInt(TextBox2) + CInt(TextBox3) + CInt(TextBox4) + CInt(TextBox5) _
End Sub
Private Sub CommandButton1_Click()
Dim strKommaOrPunkt$, tmpInvertKommaPunkt$, i%, varSumme
strKommaOrPunkt = IIf("0.5" * 2 = 1, ".", ",")
tmpInvertKommaPunkt = IIf("0.5" * 2 = 1, ",", ".")
On Error Resume Next
For i = 1 To 5
If Me("TextBox" & i) <> "" Then
If IsNumeric(Me("TextBox" & i)) Then
varSumme = varSumme + _
Replace(Me("TextBox" & i), tmpInvertKommaPunkt, strKommaOrPunkt) * 1
If Err.Number <> 0 Then varSumme = "Error": Exit For
End If
End If
Next i
TextBox6.Value = varSumme
End Sub
Gruß Tino