bedingte Formatierung in VBA
Frank
Hallo Zusammen!
Meine Frage zu folgendem Code:
Dim zelle As Range
For Each zelle In Range("G11:G41")
Select Case zelle.Value
Case Is = 0
zelle.Interior.ColorIndex = xlNone
zelle.Font.ColorIndex = 1
Case Is = ""
zelle.Interior.ColorIndex = xlNone
zelle.Font.ColorIndex = 1
Case Is > 12
zelle.Interior.ColorIndex = 15
zelle.Font.ColorIndex = 1
End Select
Next zelle
Nun möchte ich gern noch erreichen, dass wenn im angegebenen Bereich eine 12 steht und dazugehörig in Spalte F ein "T" , ColorIndex = 7 ist, oder aber bei einer 12 und in Spalte F ein "N", ColorIndex = 8 ist.
Wie müsste ich meinen Code erweitern, falls es möglich ist. Danke im Voraus!!!
Gruß Frank H.