bedingte Zellenformatierung im VBA-Code berücksich

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim rng As Range
Dim byRow As Byte, i As Byte, j As Byte
Dim DblStart As Double
Set rng = Range("B8:B316")
If Intersect(Target, rng) Is Nothing Then Exit Sub
byRow = Target.Row
Cancel = True
With Sheets("PKW")
DblStart = .Cells(byRow, 2).Value
j = 2
For i = 2 To 97 Step 8
/ Habe die Zellen auf die doppelgeklickt werden soll mit einer bedingten Formatierung formatiert. Und in die nächsten Quellcode-Zeile möchte ich folgendes integrieren: wenn das Feld aufgrund der bedingten Formatierung rot oder gelb ist, dann soll in dem anderen Sheet der kleinste Wert gesucht werden und wenn das doppelgeklickte feld aufgrund der bedingten Formatierung grün ist, dann soll der grösste Wert gesucht werden. /
If .Cells(byRow, i).Value < DblStart Then
DblStart = .Cells(byRow, i).Value
j = i
End If
Next
.Activate
.Cells(byRow, j).Select
.Rows(byRow).Hidden = False
End With
End Sub