Textfelder addieren
07.10.2004 14:52:05
Timmy@Southpark
ich addriere mit u.a. code in einer textbox die werte einiger anderer textboxen (diese werte werden wiederum werden aus anderen textboxen berechnet). alle zu summierenden textboxen sind auf enabled = false.
das klappt alles wunderbar.
nun müsste ich aber eine textbox in die summierung miteinbringen, die enabled = true ist. wenn ich das makro aber laufen lasse, wird alles addiert wie früher nur die neue textbox wo ich von hand einen wert eintragen kann, wird nicht mitaddiert.
kann mir da jemand helfen?
Private Sub txtsummeL()
Dim c As Byte, summ As Double
For c = 21 To 31
If Not Controls("TextboxL" & c) = "" Then
summ = summ + CDbl(Controls("TextboxL" & c))
End If
Next
TextBoxL32 = summ
End Sub
gruß
timmy