• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

leuk kleurtje in exel

Status
Niet open voor verdere reacties.

Martiny

Gebruiker
Lid geworden
11 apr 2005
Berichten
421
Vraag(je)
het lijkt me simpel :rolleyes:
maar 't lukt me niet :confused:

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

Snap U :shocked:

bedankt vast
 
Zet even een bestandje op het Forum,kunnen we sneller helpen:thumb:
 
Plak deze functie in een nieuwe module in VBA:

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

Code:
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
 
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 :cool:

Bedankt :thumb:

en de groenten :rolleyes:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan