In meinem Kalender zähle ich die Sonntage mit folgender Formel =SUMMENPRODUKT((WOCHENTAG(A3:A64)=1)*(A3:A64 > 0)) und die Feiertage (welche eine rote Schrift haben) =FarbsummeHA(A3:A64; 3). Ich wollte fragen ob man diese Formeln so umbauen kann, daß nur die Feiertage gezählt werden, die kein Sonntag sind. Ich probiere das ganze schon seit Freitag, ohne Ergebnis)
Function FarbsummeHA(Bereich As Range, Farbe As Integer)
Dim Zelle
Application.Volatile
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = Farbe Then
FarbsummeHA = FarbsummeHA + 1
End If
Next
End Function
Danke für eure Hilfe
Michael