rode cellen tellen

[rob91]

Hallo,

Ik heb een jaarkalender waar ik de verlofuren inzet. Nu ga ik daar bij ziekte een rode kleur aan de cel geven en de eerste ziektedag is voor rekening van de werknemer dus daar zet ik ook 8 in, zodat er 8 uur van zijn saldo afgaat. Is er een mogelijkheid om de rode cellen op te tellen, zodat ik een overzicht krijg van het totaal aantal verzuimdagen en hoe vaak hij zich ziek heeft gemeld?
Bij voorbaat dank.

 

[Warme bakkertje]

Sub kleurentellen()
For Each c In Range("D2:AH13")
    If c.Interior.Color = vbRed Then
    Range("E18").Value = Range("E18").Value + 1
    End If
    Next c
End Sub

Mvg

Rudi

 

[rob91]

Bedankt Rudi voor het snelle antwoord,maar......
ik ben nog niet zo goed met code.
Waar plaats ik dit en hoe krijg ik die gevraagde waarden dan in een cel ??

Rob

 

[Warme bakkertje]

ALT-F11 >> Invoegen >> Module en plakken
In bijlage voorbeeldje

Mvg

Rudi

 

[Roncancio]

Bedankt Rudi voor het snelle antwoord,maar......
ik ben nog niet zo goed met code.
Waar plaats ik dit en hoe krijg ik die gevraagde waarden dan in een cel ??

Rob

In de code staat: Range("E18").Value = Range("E18").Value + 1
De waarde van cel E18 wordt met 1 verhoogd indien de macro een rode cel tegenkomt.

Met vriendelijke groet,


Roncancio

 

[rob91]

Heren,
Jullie hebben mij weer een heel stuk verder geholpen.
Het begint nu al echt wat te lijken.
Alle dank voor de support.:thumb:

Rob