Cellen optellen die een bepaalde kleur hebben

[HJ25]

Hallo allen!

In het bijgevoegde Excelbestand wil ik graag de cellen optellen die een bepaalde kleur hebben. Zo moet er een totaal komen van de getallen die in cellen staan die geel zijn, een totaal van de getallen die in cellen staan die blauw zijn enzovoort. Is dit mogelijk met een formule? Zo ja welke formule moet ik hiervoor gebruiken?

Alvast bedankt!!Bekijk bijlage Cellen optellen die een bepaalde kleur hebben.xls

 

[spaarie]

Function SOMKLEUR(varRange As Range, varColor As Range)
Dim cell As Range
For Each cell In Application.Intersect(varRange, varRange.Parent.UsedRange)
If cell.Interior.ColorIndex = varColor.Interior.ColorIndex Then
SOMKLEUR = SOMKLEUR + cell.Value
End If
Next
End Function

Plaats deze in een module. Hiermee krijg je de formule =SOMKLEUR(bereik;cel met kleur)

 

[HJ25]

Geweldig! Maar hoe kan het dat wanneer ik dit zelf in een nieuw bestand probeer, dat dit niet lukt?
Bekijk bijlage Cellen optellen die een bepaalde kleur hebben (1).xls

 

[spaarie]

Omdat je de Function in de VB van het tabblad hebt gezet. Deze moet in een Module...

 

[HJ25]

Aha het is opgelost! Nu werkt het idd wel! Haha! Bedankt!!

 

[sylvester-ponte]

als je cellen opgemaakt zijn met voorwaardelijke opmaak dan wordt het een ander verhaal

 

[HJ25]

Nee ze worden handmatig een kleur gegeven! Ik zit nu wat te proberen met de formule en zie dat de formule het antwoord niet direct aanpast als je er nieuwe getallen met bepaalde kleuren er bij zet! Klopt dit? Wordt het antwoord alleen maar aangepast wanneer je de formule aanklikt en op enter drukt?

 

[sylvester-ponte]

dat klopt, kleurverandering veroorzaakt geen herberekening

 

[spaarie]

Maar dit kan je weer ondervangen met Worksheet_Change event ofzo...

 

[HJ25]

Dat is wel even balen! Is er niet toevallig een trucje waardoor dit wel automatisch herberekend wordt?

Ow uhm nooit van gehoord... Kan je dit wat specifieker uitleggen aub?

 

[sylvester-ponte]

spaarie, ik ken geen events die reageren op kleurverandering
jij wel?

 

[spaarie]

Stel je veranderd de kleuren in A2:H23 en de formules staan in de rij eronder...

Private Sub Worksheet_Change(byVal Target as Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2:H24")) Is Nothing Then
Activesheet.Calculate
End If
End Sub

Dan krijg je zoiets...

@Sylvester: Ik bedoel ook niet op kleurwijziging, maar je wijzigt de inhoud toch van de matrix in de formule. De formule laat je hercalculeren... of zit ik er naast...

 

[sylvester-ponte]

maar je kan het programma wel laten reageren op bv verandering van de geselecteerde cell
zo iets maar het is niet perfect: Bekijk bijlage vb (3).xls

 

[HJ25]

Stel je veranderd de kleuren in A2:H23 en de formules staan in de rij eronder...

Private Sub Worksheet_Change(byVal Target as Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2:H24")) Is Nothing Then
Activesheet.Calculate
End If
End Sub

Dan krijg je zoiets...

Is het ook mogelijk om in die code een bereik aan te geven van cellen die opnieuw berekend moeten worden?

 

[HJ25]

maar je kan het programma wel laten reageren op bv verandering van de geselecteerde cell
zo iets maar het is niet perfect: Bekijk bijlage 177934

Dat is wel zo ongeveer wat ik zoek ja! Maar je geeft aan dat dit niet perfect is... welke fouten zitten hierin dan? Of welke problemen kunnen er ontstaan?

 

[sylvester-ponte]

HJ25, de fout is dat er pas herberekend wordt de selectie wijzigt.
verder is het zo dat iedere keer als je van cel wisselt de herberekening van het hele blad plaats vind.
en als dat veel rekenwerk is kost dat veel tijd.

 

[HJ25]

Oke bedankt voor de uitleg! Helemaal duidelijk! Mocht iemand nog een code weten waardoor niet alles opnieuw uitgerekend wordt maar een bepaalde selectie dan hoor ik dat graag!