Summenbildung

06/03/2010 - 10:24 von N. Hall | Report spam
Hallo.
Ich mochte, dass bei einer Summenbildung auch die 0,5 als ganze Zahl
gezàhlt wird.
Gruß Norbert
 

Lesen sie die antworten

#1 Andreas Killer
06/03/2010 - 11:12 | Warnen spam
N. Hall schrieb:

Ich mochte, dass bei einer Summenbildung auch die 0,5 als ganze Zahl
gezàhlt wird.


Und ich möchte das es Frühling wird und kein Schnee liegt. :-)

Andreas.

Function MySumme(ParamArray Bereiche()) As Double
'Beispiel =MySumme(A1:A3;B1;C1:F1)
Dim I As Long, r As Range, V As Variant
'Durchlaufe alle angegebenen Bereiche
For I = LBound(Bereiche) To UBound(Bereiche)
'Durchlaufe jede Zelle des Bereiches
For Each r In Bereiche(I)
V = r.Value
If V = 0.5 Then V = 1
MySumme = MySumme + V
Next
Next
End Function

Ähnliche fragen