Door celkleur berekening toepassen

[marc651]

Hallo,

Ik heb een werkrooster wat ik maak voor mijn collega's.
Ik maak dit aan het begin van de maand. Aan het eind van de maand moet ik daar wat dingen in veranderen.
BV als iemand ziek is geweest.
Wat ik nu wil is dat als iemand ziek is geweest, ik de betreffende cellen blauw kleur.
Dit totaal moet dan in de kolom "Z" komen. Daarnaast moet er over deze gekleurde cellen géén ORT berekend worden, maar het totaal in de kolom 100% opgeteld worden.
Iemand een idee?

Bekijk bijlage RoosterVB-V2.xlsm

 

[ReneDirks]

Hiermee zou je de kleur van een cell kunnen bepalen:

Function GetCellColor(Target As Range)
    If Target.Cells.Count <> 1 Then
        'multiple cells selected, what do you want to do?
        GetCellColor = -1
    Else
        Dim t As Range
        Set t = Target.Cells(1, 1)
        GetCellColor = Target.Cells(1, 1).Interior.Color
    End If
End Function

Vervolgens zul je net zo'n functie moeten gebruiken als OverurenOptellenInMaand waarbij je de totalen van een meegegeven reeks bepaald aan de hand van de kleur van de cel.

Toevoeging:
Als je daar dan zoiets voor gebruikt:

Public Function GetSumForColor(r As Range, col As Long)
    Dim i As Integer
    Dim dblTotal As Double
    For i = 1 To r.Columns.Count - 1 Step 2
        Debug.Print (i)
        'only add the specified color
        If GetCellColor(r(1, i)) = col Then
            dblTotal = dblTotal + DateDiff("h", r(1, i + 1), r(1, i))
        End If
    Next
    GetSumForColor = dblTotal
End Function

Dan kun je mbv de formule =GetSumForColor(D7:R7;16777215) het totaal aantal uren van alle WITTE 'dagen' in de reeks D7-R7 bepalen. Op analoge wijze met 16711680 (vbBlue), etc

En je zou bovenstaande twee functies ook kunnen samenvoegen. Maar misschien wil je de cel kleur later nog ergens anders voor gebruiken.

 

[marc651]

Hoi Rene,

Sorry voor de late reactie. Ik was op vakantie.
Bedankt voor de uitleg.
Ga er iemand naar laten kijken.

Groet Marc