cellen optellen (som) dmv macro uitslag 0 dan leeg laten

[Tweety1]

Hi,

De volgende macro gebruik ik om cellen optellen.

Sub optellen()
Dim Bereik As Range
Set Bereik = Range(Range("a1"), Range("a65536").End(xlUp))
'aanpassen voor jouw kolom
Range("a65536").End(xlUp).Offset(1, 0).Value = WorksheetFunction.Sum(Bereik)
'maakt de som onder de laatst gevulde cel
End Sub

Nu wil ik graag de uitslag 0 als een lege cel laten zien.

mvg

Kasper

 

[edmoor]

Zoiets?

Sub optellen()
    Dim Bereik As Range
    Dim waarde As Integer
    Set Bereik = Range(Range("a1"), Range("a65536").End(xlUp))
    waarde = WorksheetFunction.Sum(Bereik)
    Range("a65536").End(xlUp).Offset(1, 0).Value = IIf(waarde = 0, "", waarde)
End Sub

 

[mcs51mc]

Eén kleine opmerking:

Dim waarde As Integer

zou ik vervangen door

Dim waarde As [COLOR="#0000CD"]Double[/COLOR]

Je weet maar nooit dat er decimale getallen in het bereik zitten

 

[edmoor]

Daar heb je helemaal gelijk in, daarom schreef ik ook: Zoiets
Als info voor TS, een Integer bevat alleen hele getallen. Getallen met decimalen erin worden daarin naar boven afgerond.
Wil je met decimalen werken dan is een Double of een andere voor decimalen i.p.v. Integer aan te raden.

 

[Tweety1]

Bedankt