hintergrundfarbe blau gibt in einzelnen zellen den urlaub an.
durch bedingte formatierung wird der urlaub rot in einzelnen zellen angezeigt.
durch die selbstgeschriebene funktion "farbsumme" werden alle farbigen zellen gezählt.
Option Explicit
Sub Löschen()
Application.ScreenUpdating = False
Range("B10:BB69").Interior.ColorIndex = xlNone
Application.Goto Reference:=Range("B10"), Scroll:=True
Application.ScreenUpdating = True
Calculate
End Sub
' Anzahl der Zellen mit einer Farbe
' In Zelle=Farbsumme(A1:A10;3)
Function FarbsummeHA(Bereich As Range, Farbe As Integer)
' Hintergrund
Dim Zelle
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
FarbsummeHA = FarbsummeHA + 1
End If
Next
End Function
Sub Zählen()
Calculate
End Sub
wenn man jetzt ausversehen seinen urlaub über einen feiertag(mit bedingter formatierung hinterlegt) zieht bleibt dieser tag zwar rot.
wird aber als urlaubstag gezählt, da er blau hinterlegt ist.
wie muss die selbstgeschrieben funktion aussehen dass die bedingte formatierung mitberücksichtigt wird und nur die farbe gezählt wird die man auch wirklich in der zelle sieht?
habe schon in mehreren foren die frage gestellt. bis jetzt konnte mir aber noch keiner weiterhelfen.
schonmal im voraus danke für eure mühe