de formule TelAchtergrondkleur wijzigen in SomAchtergrondkleur is dit mogelijk

[Geartsje]

Ik gebruik nu een urenregistratie voor de overuren en de snipperuren
als ik nu een vakantieuur invul moet ik het vakje oranje maken en worden de uren ingevuld
met de formule TelAchtergrondkleur(B11:AF22;H8)*8 Ik doe dit *8 omdat deze persoon 8 uur per dag werkt

Kan de formule ook aangepast worden dat hij niet Telachtergrondkleur doet maar een SomAchtergrondkleur doet van de oranje vakjes
want zou ik nu de*8 uit de formule haal dan telt hij puur vakjes die oranje zijn gemaakt
en ik moet variabele uren in dit oranje vakje kunnen invullen.

 

[edmoor]

Gebruik dan deze:

Function SomAchtergrondkleur(Bereik As Range, Reference As Range)
    Dim Cl As Range, ClrSom As Long
    Application.Volatile
    For Each Cl In Bereik
        If Cl.Interior.ColorIndex = Reference.Interior.ColorIndex Then
            ClrSom = ClrSom + Cl.Value
        End If
    Next
    SomAchtergrondkleur = ClrSom
End Function

 

[Haije]

Hoi Geartsje,

foldocht dit oan dyn ferwachtingen?

ondertiteling: voldoet dit aan je verwachtingen?

 

[Geartsje]

Hoi Geartsje,

foldocht dit oan dyn ferwachtingen?

ondertiteling: voldoet dit aan je verwachtingen?

Hajie
dit is inderdaad wat ik bedoel
tige tank foar dizze snelle oplossing

gr geartsje

 

[Haije]

mijn oplossing is vergelijkbaar met die van @edmoor, en die was sneller dan ik, dus alle eer ook naar hem!