ich habe ein Problem bei der Ausgabe einer Summe in einem Label.
Nach der Eingabe der Anzahl der Teilsummen in Textbox4 sollen in den jeweiligen Textboxen (17 bis 28) die Teilsummen eingetragen werden und die Gesamtsumme über Label 43 ausgegeben werden. Leider funktioniert das Ganze nicht so wie ich das gerne hätte.
Es erscheint die Meldung Laufzeitfehler '13' Typen unverträglich! sobald ein Wert eingetragen wird.
Hat jemand einen Vorschlag, wie das Ganze funktionieren könnte?
Private Sub TextBox18_Change()
Dim x, y As Byte
x = TextBox4.Value
For y = 2 To x
If TextBox4.Value >= 1 And TextBox4.Value <> "" _
And Me.Controls("TextBox" & y + 15).Value <> "" Then
'Ermittlung der Gesamtsumme
Label43.Caption = Format(CDbl(TextBox17) + _
CDbl(Me.Controls("TextBox" & y + 16)), "#,##.00 ")
End If
Next y
End Sub