Mit folgender Formel (Dank eurer Hilfe) bekomme ich die Summe der Dienste an welchen am Sonntag gearbeitet wird.
=SUMMENPRODUKT((WOCHENTAG(A3:A64;2)=7)*(C3:C64"")*(C3:C64"k")*(C3:C64"u")). Die Feiertage bei meinem Tabellenblatt haben eine rote Schrift. Mit dieser Formel erhalte ich die Summe der Feiertage (Wenn nicht Sonntag)=FarbsummeHASO(A3:A64; 3) Warum funktioniert diese Formel nicht auch so. =SUMMENPRODUKT((FarbsummeHASO(A3:A64;3)*(C3:C64"")*(C3:C64"k")*(C3:C64"u"))). Als Lösung will ich die Tage haben, wo nur am Feiertag gearbeitet wird. Mit meinem kläglichen Versuch wird mir jeder Sonntag (der was nicht gezählt werden soll) und Feiertag (welcher mir gezählt werden soll) gezählt.
Function FarbsummeHASO(Bereich As Range, Farbe As Integer) Dim Zelle Application.Volatile For Each Zelle In Bereich If Zelle.Font.ColorIndex = Farbe And Weekday(Zelle) <> 1 Then FarbsummeHASO = FarbsummeHASO + 1 End If Next End Function
Danke für eure Hilfe
Michael