suche befehl
08.10.2004 15:36:45
Timmy@Southpark
mit diesem makro summeriere ich textboxen (25 bis 36) in der textbox 63
nun würde ich gerne noch die textboxen 55 bis 62 dazuaddieren, weiss aber nicht wie. in der zeile mit dem pfeil komm ich nicht weiter.
Private Sub txtsummeP()
Dim c As Byte, summ As Double
For c = 25 To 36 <------------------------
If Not Controls("TextboxP" & c) = "" Then
summ = summ + CDbl(Controls("TextboxP" & c))
End If
Next
TextBoxP63 = summ
End Sub
habe mal versucht For c = 25 To 36 And 55 to 62, geht aber nicht.
kann mir jemand weiter helfen?
gruß
timmy
Anzeige