summe textboxen wenn ""
02.04.2009 21:28:10
kirsche
ich habe ca. 40 textboxen und 8 label. die 8 label sollen summiert werden und dann die summe der textboxen abgezogen werden.
da in einigen textboxen noch kein wert drin steht und dann immer eine fehlermeldung kam, habe ich mir eine prüfung eingebaut.
Private Sub TextBox19_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim a, b, c, d, e
If TextBox47.Value = "" Then b = 0
If TextBox75.Value = "" Then c = 0
If TextBox103.Value = "" Then d = 0
If TextBox131.Value = "" Then e = 0
If TextBox19.Value "" Then
Label74.Caption = Label16 - TextBox19 - b - c - d - e
Label82.Caption = CDbl(Label15) + CDbl(Label16) + CDbl(Label17) _
+ CDbl(Label18) + CDbl(Label19) + CDbl(Label20) _
+ CDbl(Label21) + CDbl(Label22) - TextBox19
End If
End Sub
leider funktioniert das so nicht, es wird ein falsches ergebnis geliefert.
wie müßte mein code für dieses beispiel aussehen, wenn in einigen textboxen kein wert steht?
Label82 = (Label1+2+3+4+5+6+7+8) - (textbox1+2+.....+40)
gruß kirsche
Anzeige