Severijns
Gebruiker
- Lid geworden
- 6 jul 2018
- Berichten
- 139
Geachte forumleden,
In bijgevoegd bestand zoek ik een methode om het aantal blauw gekleurde cellen met een rodetekst kleur te tellen.
De blauwe celkleur komt tot stand middels een matrix formule en de rode tekstkleur komt tot stand middels VO.
Via dit forum heb ik diverse oplossingen voorbij zien komen en geprobeerd.
in combinatie met de formule
werkt helaas niet met VO.
De oplossing ligt hem, volgens de diverse voorgestelde oplossingen, in het gebruik maken van de formule AANTAL.ALS of AANTALLEN.ALS
Ik ben dus opzoek naar een formule die gebruik maakt van de VO om de rode kleur vast te stellen.
in combinatie met de matrix formule die voor de blauwe kleur van de cel zorgt.
Tot dusverre is het mij niet gelukt hier een werkende combinatie voor te maken met de AANTAL.ALS of AANTALLEN.ALS formule.
Iemand van jullie enig idee hoe ik het toch voor elkaar kan krijgen om de blauwe cellen met een rode tekstkleur te tellen?
Rob
Bekijk bijlage Kopie Scholingstabel.xlsm
Werkbare oplossing van Edmoor. Bedankt!
Met dank aan Edmoor.
Kleine aanvulling voor als je wilt laten berekenen alla Subtotaal.
In bijgevoegd bestand zoek ik een methode om het aantal blauw gekleurde cellen met een rodetekst kleur te tellen.
De blauwe celkleur komt tot stand middels een matrix formule en de rode tekstkleur komt tot stand middels VO.
Via dit forum heb ik diverse oplossingen voorbij zien komen en geprobeerd.
Code:
Function TelKleur(R1 As Range, r2 As Range)
Application.Volatile
For Each cl In R1
If cl.Font.Color = r2.Font.Color Then TelKleur = TelKleur + 1
Next cl
End Function
PHP:
=TelKleur(H13:H1013;C4)De oplossing ligt hem, volgens de diverse voorgestelde oplossingen, in het gebruik maken van de formule AANTAL.ALS of AANTALLEN.ALS
Ik ben dus opzoek naar een formule die gebruik maakt van de VO om de rode kleur vast te stellen.
PHP:
=ALS(OF(H$6="";H$6="Nvt");"";ZELFDE.DAG(H13;H$6))2<VANDAAG()
PHP:
{=SOM((TRANSPONEREN($F$13:$F$1013)='Opl. Matrix'!$F$13:$F$67)*('Opl. Matrix'!H$13:H$67="X"))}Iemand van jullie enig idee hoe ik het toch voor elkaar kan krijgen om de blauwe cellen met een rode tekstkleur te tellen?
Rob
Bekijk bijlage Kopie Scholingstabel.xlsm
Werkbare oplossing van Edmoor. Bedankt!
Code:
Sub TellenMaar()
For x = 1 To 2
Select Case x
Case 1: klr = "C4"
Case 2: klr = "C5"
End Select
For i = 8 To 104
Select Case x
Case 1: Ant = Cells(1017, i).Address(0, 0)
Case 2: Ant = Cells(1018, i).Address(0, 0)
End Select
cellen = Split(Cells(13, i).Address, ":")(0) & ":" & Split(Cells(1013, i).Address, ":")(0)
On Error Resume Next
Set Rng = Range(cellen).SpecialCells(xlCellTypeConstants)
aantal = 0
If Not Rng Is Nothing Then
For Each cl In Rng
If cl.DisplayFormat.Interior.Color = Range(klr).Interior.Color And cl.DisplayFormat.Font.Color = Range(klr).Font.Color Then
If IsDate(cl.Value) And cl.Value < Date Then
aantal = aantal + 1
End If
End If
Next
End If
On Error GoTo 0
Range(Ant).Value = aantal
Set Rng = Nothing
Next i
Next x
End SubKleine aanvulling voor als je wilt laten berekenen alla Subtotaal.
Code:
If Not Rng Is Nothing Then
For Each cl In Rng
If Not cl.Rows.Hidden Then
If cl.DisplayFormat.Interior.Color = Range(klr).Interior.Color And cl.DisplayFormat.Font.Color = Range(klr).Font.Color Then
If IsDate(cl.Value) And cl.Value < Date Then
aantal = aantal + 1
End If
End If
End If
Next
End If
Laatst bewerkt:
