Saldieren einer Summe bis der Wert 0 ist
01.08.2006 15:11:47
muggs
vorab noch: ich bin ein VBA-newbe! Ich muss folgendes Problem lösen:
ich hab z.B. 3 Zellen mit Daten:
A1:500
A2:700
A3:800
A4:-1400
Jetzt soll mit einer Schleife der negative Wert mit den anderen Werten komplett verrechnet werden, wobei die Zahlen in A1-A3 nicht negativ werden sollen.
Also: nimm die -1400, verrechne mit dem Wert in A1 (bis A1 0 wird), nimm den Saldo, verrechne weiter mit dem Wert in A2 (bis A2 0 wird) usw. bis die -1400 komplett verrechnet sind und der Saldo in A3 ausgeschrieben wirt (hier 200).
Dazu habe ich mir folgendes überlegt, was natürlich nicht funktionierte:
(Die Zellen A1, A2, A3 und A4 habe ich etspr. a,b,c und d benannt.
Sub ...()
dim ZahL as single
dim i as integer
ZahL = cells("d").value
do
for i = a to c
ZahL = Cells("i").value + Zahl
If Zahl <= 0 Then
Cells("i").value = 0
Else
Cells("i").value = cells("i").value + ZahL
next i
Loop Until ZahL = 0
End Sub
Das Ding hat aber nicht funktioniert... :(
Hat jemand eine bessere Idee?
Vielen Dank im Voraus!
Stefan