Veriable erhöhen wenn Feldwert >0
06.05.2002 20:05:28
Werner Hassold
ich möchte mehrere Felder auf deren Wert überprüfen und wenn
der jeweilige Feldwert mehr als NULL ist dann soll der Wert im Feld XY um EINS erhöht werden.
Gibts hier in Excel eine Formel oder Funktion, oder kann ich
dies in VBA erledigen.
Mit Basic kenne ich mich leider nicht so gut aus, mit Pascal
würde ich es so machen:
Var Feld:Array[1..10] of Integer;
i,Zahl:Integer;
Zahl:=0;
For i:=1 to 10 do If Feld[i]>0 then inc(Zahl);
{inc erhöht den Veriablewert ZAHL um 1}
Gibts diese Möglichkeit auch bei VBA oder ist es vielleicht
über eine Formel möglich?
Würde mich sehr über eine Antwort freuen.
Freundliche Grüße
Werner
Anzeige