Severijns
Gebruiker
- Lid geworden
- 6 jul 2018
- Berichten
- 139
Geachte forumleden,
Ik ben al enige tijd dit forum aan het doorzoeken en heb ook gekeken op andere fora maar het wil mij, ondanks de talloze voorbeelden en geboden oplossingen, maar niet lukken de juiste oplossing te vinden voor mijn situatie.
Dit zal ongetwijfeld liggen aan mijn gebrek aan kennis van de materie.
Op het tabblad "Opl. Status" zou ik graag het aantal gekleurde cellen tellen in een kolom.
De kleuren op het tabblad "Opl. Status" komen middels VO tot stand en daarvoor wordt gekeken naar het tabblad "Opl. Matrix" middels onderstaande formule in VO:
=INDEX('Opl. Matrix'!H$2:$CZ$112;VERGELIJKEN($F13;'Opl. Matrix'!$F$2:$F$112;0);VERGELIJKEN(H$2;'Opl. Matrix'!H$2:H$112;0))="X"
Het gebruikte bereik is (H13:CZ1013)
In het voorbeeldbestand zou ik graag op het tabblad "Opl. Status" in cel H1015 het aantal blauw gekleurde cellen tellen in het bereik (H13:H1013) van dat tabblad.
In het voorbeeldbestand zou ik graag op het tabblad "Opl. Status" in cel H1016 het aantal oranje gekleurde cellen tellen in het bereik (H13:H1013) van dat tabblad.
Bovenstaande geldt overigens ook voor de overige cellen (I1015:CZ1015) en (I1016:CZ1016) met hun overeenkomstige kolommen.
Maar daar kom ik denk ik wel uit als ik de oplossing voor Cel H1015 en H1016 heb.
Volgens mij komt de formule van E v R https://www.helpmij.nl/forum/showthread.php/916949-Celkleur-tellen-met-voorwaardelijke-opmaak?highlight=gekleurde+cellen+tellen gegeven op 08 mei 2017 het dichtst bij de oplossing van mijn situatie maar ik krijg het niet voor elkaar de formule goed te krijgen. Ik krijg telkens of #Naam of #Waarde of 0 als gegeven terug.
Hopelijk kan iemand mij verder helpen.
Met vriendelijke groet,
Rob
Bekijk bijlage Kopie Scholingstabel.xlsm
Hieronder de oplossing via VBA, lees de thread voor alle info
Zie voor een oplossing via een formule de postings van E v R in deze Thread.
Ik ben al enige tijd dit forum aan het doorzoeken en heb ook gekeken op andere fora maar het wil mij, ondanks de talloze voorbeelden en geboden oplossingen, maar niet lukken de juiste oplossing te vinden voor mijn situatie.
Dit zal ongetwijfeld liggen aan mijn gebrek aan kennis van de materie.
Op het tabblad "Opl. Status" zou ik graag het aantal gekleurde cellen tellen in een kolom.
De kleuren op het tabblad "Opl. Status" komen middels VO tot stand en daarvoor wordt gekeken naar het tabblad "Opl. Matrix" middels onderstaande formule in VO:
=INDEX('Opl. Matrix'!H$2:$CZ$112;VERGELIJKEN($F13;'Opl. Matrix'!$F$2:$F$112;0);VERGELIJKEN(H$2;'Opl. Matrix'!H$2:H$112;0))="X"
Het gebruikte bereik is (H13:CZ1013)
In het voorbeeldbestand zou ik graag op het tabblad "Opl. Status" in cel H1015 het aantal blauw gekleurde cellen tellen in het bereik (H13:H1013) van dat tabblad.
In het voorbeeldbestand zou ik graag op het tabblad "Opl. Status" in cel H1016 het aantal oranje gekleurde cellen tellen in het bereik (H13:H1013) van dat tabblad.
Bovenstaande geldt overigens ook voor de overige cellen (I1015:CZ1015) en (I1016:CZ1016) met hun overeenkomstige kolommen.
Maar daar kom ik denk ik wel uit als ik de oplossing voor Cel H1015 en H1016 heb.
Volgens mij komt de formule van E v R https://www.helpmij.nl/forum/showthread.php/916949-Celkleur-tellen-met-voorwaardelijke-opmaak?highlight=gekleurde+cellen+tellen gegeven op 08 mei 2017 het dichtst bij de oplossing van mijn situatie maar ik krijg het niet voor elkaar de formule goed te krijgen. Ik krijg telkens of #Naam of #Waarde of 0 als gegeven terug.
Hopelijk kan iemand mij verder helpen.
Met vriendelijke groet,
Rob
Bekijk bijlage Kopie Scholingstabel.xlsm
Hieronder de oplossing via VBA, lees de thread voor alle info
Code:
Sub tst()
Dim sv, i As Long, j As Long, blauw As Long, oranje As Long
sv = Sheets("Opl. status").Range("A1:CZ1013")
For j = 8 To UBound(sv, 2)
For i = 13 To UBound(sv)
If Cells(i, j).DisplayFormat.Interior.Color = 16764057 Then blauw = blauw + 1
If Cells(i, j).DisplayFormat.Interior.Color = 10079487 Then oranje = oranje + 1
Next i
Cells(1015, j) = blauw
Cells(1016, j) = oranje
blauw = 0
oranje = 0
Next j
End Sub
Zie voor een oplossing via een formule de postings van E v R in deze Thread.
Code:
=SOM((TRANSPONEREN($F$13:$F$1013)='Opl. Matrix'!$F$13:$F$67)*('Opl. Matrix'!H$13:H$67="x"))
Laatst bewerkt: