getallen in gekleurde cellen optellen

[Naus]

Hallo,
In hetforum vind ik veel gekleurde vlakken tellen, maar geen echte oplossing voor getallen in gekleurde cellen optellen.
Zou iemand mij een hint kunnen geven hoe te werk te gaan.

Alvast bedankt voor de moeite.

 

[HSV]

Deze kwam ik ooit eens tegen.

 

[Warme bakkertje]

Of zonder hulpkolom, met een UDF

 

[Naus]

kleurnummers

Hoi,

Bedankt voor de reacties.
Als ik een kleur wijzig, blijft het kleurnummer gewoon staan.

=getinfo(C16;"Interior.ColorIndex") deze werkt bij mij niet.
na kleurwijziging blijft het oude getal gewoon staan.

Groetjes

 

[HSV]

Na kleurwijziging moet je sneltoets F9 drukken.
Misschien is daar wat aan te doen.

 

[Naus]

kleurwijziging

ik zie bij het voorbeeld bestand dat na wijziging op F9 drukken wel werkt.
nu moet ik alleen nog in een andere rij het kleurnummer kunnen aangeven.

groetjes

 

[Naus]

kleurnummer

=getinfo(C16;"Interior.ColorIndex")

Misschien dat deze wel werkt in het nederlands.
Weet iemand de vertaling?

Groetjes

 

[HSV]

Is een functionnaam die in module 1 staat.
Deze is bedacht door de maker.
Beter is om de function (UDF) van @Rudi te nemen.
Deze staat in moduke 2, en werkt zonder hulpkolom.
Zie kolom L.

 

[Naus]

ook deze werkt niet bij mij.
Als ik deze invul, komt er #NAAM? te staan.

ik weet ook nietwat (UDF) is.

 

[HSV]

Misschien is het handig om je eigen bestandje te plaatsen.
De UDF’s staan in de modules 1 & 2.
Deze verschijnt links van je beeld na drukken ALT+F11.

 

[danny147]

Beste Naus

Ik denk dat het allemaal wat te vlug gaat voor jou.
Warme bakkertje heeft een mooie code geschreven in Module 2.

Wat moet je doen om deze code in je bestandje te krijgen !!!

Druk op ALT+F11 klik dan op invoegen en dan op Module.
Zet de volgende code daarin:

Function ColorFunctionInterior(rColor As Range, rRange As Range, Optional SUM As Boolean)
    Dim rCell As Range
    Dim lCol As Long
    Dim vResult
    lCol = rColor.Interior.ColorIndex
    If SUM = True Then
        For Each rCell In rRange
            If rCell.Interior.ColorIndex = lCol Then
                vResult = WorksheetFunction.SUM(rCell, vResult)
            End If
        Next rCell
    Else
        For Each rCell In rRange
            If rCell.Interior.ColorIndex = lCol Then
                vResult = 1 + vResult
            End If
        Next rCell
    End If
    ColorFunctionInterior = vResult
End Function

Nu kan je de volgende formule grebruiken:

=ColorFunctionInterior(Cel waar kleur staat;bereik waar waarden staan;WAAR)

Groetjes Danny. :thumb:

 

[Naus]

Danny bedankt,

Ik heb gedaan wat je geschreven hebt en dat werkt perfect.
Maar als ik een kleur weghaal, verandert de som niet.

Wat moet ik dan nog doen dat de som weer klopt.

groetjes

 

[danny147]

Beste Naus

Ga naar ALT+F11
Dubbelklik op het blad waar je waarden staan Vb. Blad1
En plaats dan deze code hierin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("Bereik waar de formules staan").Calculate
End Sub

Groetjes Danny. :thumb:

 

[Naus]

danny,

Ik weet niet hoe het werkt, maar het werkt fantastisch.

Bedankt voor de hulp en snelle reactie.

dedze mag op afgewerkt gezet worden.

 

[HSV]

danny,

Ik weet niet hoe het werkt, maar het werkt fantastisch.

Bedankt voor de hulp en snelle reactie.

dedze mag op afgewerkt gezet worden.

Behalve als je de opmaak verwijderd.
Deze doet dat wel na verwijderen/veranderen van opmaak en selectiechange in het voorbeeldbestandje.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Range("L34:L42").Dirty
End Sub

Ps. De vraag als opgelost zetten mag jezelf doen Naus.
Bvd.

 

[jtest]

Meerdere cellen

Hartelijk dank voor de heldere uitleg en stappen. Het werkt!

Graag zou ik meerdere cellen uit verschillende kolommen willen optellen.
Ik heb namelijk een grote excelsheet met meerdere blokken/overzichten. Ik kan dus niet de volledige sheet selecteren.

Als ik meerdere ranges? aangeef krijg ik de melding #WAARDE!

De formulie die ik dan ingevuld heb: =ColorFunctionInterior(K34;C4:AK29;AO4:BW29;BZ4H29;C39:V63;WAAR)

 

[huijb]

Deze topic is dusdanig gedateert dat deze met rust gelaten mag worden. Topic gaat op slot en wordt overgedragen aan de afdeling BNw(Betere Naslagwerken)