farbsumme und bedingte formatierung?

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

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Manitu,
das ist eine komplizierte Sache. Mit untenstehender Funlktion ermittels Du die Farbzahl der betreffenden Zelle, die durch bedingte Formatierung(!) entsteht. Die sollte Dir dann weiterhelfen.
mfg Holger


Function GetCellColor(cell As Range) As Integer
' Von Bernd bstrohhaecker@gmx.de
Dim i
Dim myVal
Dim myColor As Integer
Dim done As Boolean
On Error Resume Next
Names("testname").Delete
On Error GoTo 0
Application.ReferenceStyle = xlR1C1
myVal = cell.Value
myColor = cell.Interior.ColorIndex
done = False
For i = 1 To cell.FormatConditions.Count
With cell.FormatConditions.Item(i)
If .Type = 1 Then
Select Case .Operator
Case xlBetween
If myVal >= Evaluate(.Formula1) And myVal <= Evaluate(.Formula2) Then
myColor = .Interior.ColorIndex
done = True
End If
Case xlEqual
If myVal = Evaluate(.Formula1) Then
myColor = .Interior.ColorIndex
done = True
End If
Case xlGreater
If myVal > Evaluate(.Formula1) Then
myColor = .Interior.ColorIndex
done = True
End If
Case xlGreaterEqual
If myVal >= Evaluate(.Formula1) Then
myColor = .Interior.ColorIndex
done = True
End If
Case xlLess
If myVal < Evaluate(.Formula1) Then
myColor = .Interior.ColorIndex
done = True
End If
Case xlLessEqual
If myVal <= Evaluate(.Formula1) Then
myColor = .Interior.ColorIndex
done = True
End If
Case xlNotBetween
If myVal < Evaluate(.Formula1) Or myVal > Evaluate(.Formula2) Then
myColor = .Interior.ColorIndex
done = True
End If
Case xlNotEqual
If myVal <> Evaluate(.Formula1) Then
myColor = .Interior.ColorIndex
done = True
End If
End Select
ElseIf .Type = 2 Then
Names.Add Name:="testname", RefersToR1C1Local:=.Formula1
If Evaluate("testname") Then
myColor = .Interior.ColorIndex
done = True
End If
Names("testname").Delete
Else
MsgBox "Unbekannter Typ: " & .Type, , "PANIC: In 

Function GetCellColor"
Exit Function
End If
End With
If done Then Exit For
Next
Application.ReferenceStyle = xlA1
GetCellColor = myColor
End Function

Hallo GrosserManitu,
dein Problem ist ja, dass an Feiertagen die unsichtbare Hintergrundfarbe blau dann gezählt wird, obwohl sichtbar die bedingte Formatierung rot ist. Meine Idee ist:
Der Urlaub wird ja in Spalte BD berechnet, abhängig von der Hintergrundfarbe blau. Wenn du nun ein Worksheet_Calculate Makro in die Tabelle einbauen würdest, dass spränge dann ja bei Neuberechnung an. Und dieses Makro soll folgendes tun: In Zellen, die aufgrund ihrer bedingten Formatierung eine Farbe anzeigen, (weil diese Bedingung erfüllt ist), soll die unsichtbare blaube Hintergrundfarbe gelöscht werden, so dass die Hintergrundfarbe auf automatisch steht. Und dann würden diese Zellen ja nicht mehr mitgezählt.
So ein Makro geht ganz bestimmt. Ich kann es dir nur nicht schreiben. Wenn hier keiner mehr reagiert würde ich einen neuen Thread eröffnen wieder mit Beispieldatei, Problembeschreibung und vielleicht meinem Vorschlag, wenn er dir zusagt.
Gruß,
Beate

Beliebteste Forumthreads (12 Monate)

farbsumme und bedingte formatierung?

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

farbsumme und bedingte formatierung?

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread