summenberechnung
08.11.2004 12:05:28
Timmy@Southpark
ich habe ein kleines problem bei einer summenberechnung.
ich addiere summen von textboxen in einer anderen textbox mit folgendem code:
Sub SummeP()
If TextBoxP1 <> "" And TextBoxP2 <> "" And TextBoxP3 <> "" And TextBoxP4 <> "" And TextBoxP5 <> "" And TextBoxP6 <> "" And TextBoxP7 <> "" And TextBoxP8 <> "" And TextBoxP9 <> "" And TextBoxP10 <> "" And TextBoxP11 <> "" And TextBoxP12 <> "" And TextBoxP37 <> "" And TextBoxP38 <> "" And TextBoxP39 <> "" Then
TextBoxP40 = CDbl(TextBoxP1) + CDbl(TextBoxP2) + CDbl(TextBoxP3) + CDbl(TextBoxP4) + CDbl(TextBoxP5) + CDbl(TextBoxP6) + CDbl(TextBoxP7) + CDbl(TextBoxP8) + CDbl(TextBoxP9) + CDbl(TextBoxP10) + CDbl(TextBoxP11) + CDbl(TextBoxP12) + CDbl(TextBoxP37) + CDbl(TextBoxP38) + CDbl(TextBoxP39)
End If
End Sub
bitte nicht lachen, aber der funktioniert wenigstens und ist leicht editierbar :)
der code funktioniert genau solange, solange zahlen in jeder zu addierenden textbox stehen. sobald jedoch eine zelle "" also gar nix drin steht, gehts nimmer.
kann mir mal jemand unter die arme greifen?
danke
gruß
timmy