Funtion ertellen die Farben Zählt unter beachtung
07.02.2007 10:39:40
Carsten
ich versuche gerade eine Funktion zu ertellen die mir Rotmarkierte Zellen Zählt unter berücksichtigung der Wochenenden.
es gibt ja schon funktionen die Farbige zällen zählt hier im forum gefunden nun möchte ich aber samstage und sonntage nicht mitzählen lassen auch wenn sie markiert sind.
Dass ist alles was ich bis jetzt zusammen gebracht habe,kann mir evtl jemand helfen der sich gut mit VBA auskennt.
Danke im Vorraus Carsten
'die Funktion soll alle zällen zählen die rot sind
'und nicht auf einen Samtag oder Sonntag fallen
Function Farbez(Datum As Range, Urlaubstage As Range, farbe As Byte) As Long
Dim D As Range 'datum
Dim U As Range 'Urlaub
For Each D In Datum
If Weekday(Urlaubstage, vbMonday) < 6 Then AnzTage = AnzTage + 1
If D.Interior.ColorIndex = farbe Then
Farbez = Farbez + 1
End If
Next D
End Function