VBA optellen binnen een bereik

[Robert Smidt]

Beste Helpmij'ers,

Ik ben op zoek naar een code die binnen een bereik alle cellen optelt en wanneer dat 0 is een actie volgt. Helaas werkt onderstaande niet, wat doe ik fout?

If Range("L52:Q52") = 0 Then

Alvast heel erg bedankt.

Robert

 

[edmoor]

Maak er eens dit van:

If Application.WorksheetFunction.Sum(Range("L52:Q52")) = 0 Then

 

[snb]

of simpelweg:

if [sum(L52:Q52)=0] then

 

[edmoor]

Kende ik niet. Werkt prima :thumb:

 

[snb]

Misschien moeten we eens een aparte pagina maken over evaluate.

 

[Robert Smidt]

Prima code en werkt perfect allebei heel erg bedankt...