• 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.

optellen van gekleurde aantallen

Status
Niet open voor verdere reacties.

bouduif

Gebruiker
Lid geworden
12 okt 2008
Berichten
68
Uit een reeks getallen zijn er een aantal , bijv. rood, gekleurd. Op welke wijze kan ik deze eruit halen in het totaal?
 

Bijlagen

Gebruik de zoekfunctie op dit forum eens.
Recentelijk is hierover al veel uit de doeken gedaan.
 
Na even zoeken had je deze makkelijk kunnen samenstellen
Code:
Sub tst()
    i = 0
    For Each cl In [B4:B26]
        If cl.Font.ColorIndex = 3 Then i = i + 1
    Next
    [B28] = i
End Sub
 
Er komt een totaal van 17 uit Rudi.
De cellen die leeg zijn maar waarvan de opmaak op rood staan tellen schijnbaar ook al mee.
Kleine aanpassing.
Code:
If cl > 0 And cl.Font.ColorIndex = 3 Then i = i + 1
 
Laatst bewerkt:
Wist ik ;), maar was in de veronderstelling dat TS wel zo slim zou zijn om bij de lege cellen de opmaak te verwijderen.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan