leuk kleurtje in exel

[Martiny]

Vraag(je)
het lijkt me simpel
maar 't lukt me niet

gewoon een simpele opteling
gewoon 1 kolom onder elkaar
maar dan wil ik dat die cellen die gekleurt zijn NIET meeneemt in de telling
zogauw ik de cel weer de standaart kleur geef moet ie weer wel meetellen
zonder dat ik het bedrag in de cel bewerkt

Snap U :shocked:

bedankt vast

 

[marcel bosveld]

Zet even een bestandje op het Forum,kunnen we sneller helpen:thumb:

 

[Martiny]

Zet even een bestandje op het Forum,:thumb:

Zoiets ??

Smakelijk eten

 

[Wigi]

Plak deze functie in een nieuwe module in VBA:

Doe Insert > Module en dan plakken in het lege witte scherm

Function SumNoColor(InRange As Range) As Variant

Dim OK As Boolean, Ndx As Long
Application.Volatile True
For Ndx = 1 To InRange.Cells.Count
    If InRange.Cells(Ndx).Interior.ColorIndex = xlNone And IsNumeric(InRange.Cells(Ndx).Value) Then _
        SumNoColor = SumNoColor + InRange.Cells(Ndx).Value
Next Ndx

End Function

Vervolgens roep je de functie aan zoals elke andere:

=sumnocolor(F4:BI4)

Let wel: de som wordt enkel herberekend als het blad herberekend wordt, en dat gebeurt niet als je een kleurtje toepast!

Code aangepast van hier.

Wigi

 

[Martiny]

Plak deze functie in een nieuwe module in VBA:

Doe Insert > Module en dan plakken in het lege witte scherm

Wigi

Dit word dan mijn eerste VBA code

Bedankt :thumb:

en de groenten