Zellenwert erhöhen wenn ....
04.08.2002 16:10:34
Werner Hassold
ich möchte den Wert einer Zelle um jeweils 1 erhöhen
wenn der Wert in den Zellen A1..A31 mehr als NULL ist.
Das ganze sollte in einer Schleife ablaufen ....
Leider kenne ich mich in VBA nicht so gut aus!
In Pascal würde das so aussehen:
------------------------------------------------------
Var A32:Integer; {Veriable definieren}
A32:=0;
For i:=1 to 31 do If A[i]>0 then inc(A32);
------------------------------------------------------
Die Zellen A1 bis A31 werden überprüft, wenn der Wert
in einer überprüften Zelle mehr als NULL ist wird der
Wert in A32 jeweils um 1 erhöht.
Kann mir jemand diese Sache nach VBA übersetzen, würde
mir sehr helfen.
Danke für jede Hilfe
Gruß, Werner