Bedingtes Format mit VBA auslesen

Hallo zusammen!
Mein PROBLEM!!!!!!!!!!!!!!
Eine Bedingte Formatierung die mittels VBA erstellt wird kann, bzw. wird nicht mittels CODE ausgelesen. Bei Recherchen stiess ich auf die Empfehlung, bzw. Tipp von HWH, die lautet "Bedingte Formatierung auf Wahrheitsgehalt überprüfen". Soweit so gut! Aber wie soll die nachgenannte Formel im Code interpretiert werden?
Formel:
=ODER(UND(AK$2>=$H11;AK$2 UND(AK$2>=$J11;AK$2 UND(AK$2>=$L11;AK$2 CODEZEILE:
If iDate = Cells(2, iColDat).Value And Cells(iNextRow, iColDat).Interior.ColorIndex = 15 Then _
Cells(iNextRow, 4).Font.ColorIndex = 3
statt "Interior.ColorIndex = 15" gehört die Überprüfung im Sinne obgenannter Formel
Danke im Voraus für die Mühe.
Gruss Lorenz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi K.R.!
Anbei der CODE


Sub TestCellColor()
MsgBox GetCellColor(ActiveCell), , "Meine Farbe ist:"
End Sub


Function GetCellColor(cell As Range) As Integer
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)) _
Or (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


Grüsse Lorenz

Sub SchriftEinfaerben() Dim iDate As Integer, iRow As Integer, iColDat As Integer, iNextRow As Integer iDate = (Day(Now)) iRow = 3 For iColDat = 14 To 44 For iNextRow = iRow To 47 If iDate = Cells(2, iColDat).Value And Cells(iNextRow, iColDat).Interior.ColorIndex = 15 Then _ Cells(iNextRow, 4).Font.ColorIndex = 3 End If Next Next End Sub

Beliebteste Forumthreads (12 Monate)

Bedingtes Format mit VBA auslesen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread