wenn ich in einer UF die Zextboxen addieren will, wird z.B. 1,50 als Ergebnis mit 1,00 angezeigt.
Die Textboxen 1 -4 müssen nicht unbedingt einen Wert enthalten.
Wo liegt der Fehler?
Danke!
Gruß
Sigi
https://www.herber.de/bbs/user/118637.xlsm
Private Sub txtFAStd1_Change()
Dim cnt As Control
Dim dValue As Double
For Each cnt In Controls
If Right(cnt.Name, 4) = "Std1" Then
If IsNumeric(cnt.Value) Then dValue = dValue + CDbl(cnt.Value)
End If
Next cnt
txtStdG1.Text = Format(dValue, "0.00")
End Sub