summieren
03.03.2004 08:21:08
Micha
Ich möchte die Werte aus einer Zahlenreihe summieren. Es sollen Teilsummen gebildet werden die sich ergeben sobald eine 0 auftaucht.
Ich bin für jede Idee dankbar.
Dim i
For i = 3 To 140 Step 1
If Cells(i, 1).Value > 0 Then
Cells(i, 2) = Cells(i, 1)
End If
Next i