Wenn C1:C3 > B12 dann Zahl gelb färben
14.08.2003 15:57:46
Glen
Ich möchte gerne, wenn die Werte der Zellen C1:C3 den Wert der Zelle B12 überschreiten, dass die Werte in C dann gelb dargestellt werden.
Auf der suche nach einer Lösung bin ich auf den unten reinkopierten VBA-Code gestossen. Der Code funktioniert zwar, jedoch färbt dieser auch den zweiten möglichen Wert der Zelle, der durch eine WENN-Bedingungen ensteht, "im Hause" gelb an. Kann mir jemand sagen, wie der Code aussehen muss, wenn ich nur die überschrittenen Werte gelb haben möchte?
https://www.herber.de/bbs/user/577.xls
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("C1:C3")
' Set RaZelle.Offset = "Muster"
For Each RaZelle In Range(Target.Address)
' überprüfen ob Zelle im vorgegebenen Bereich
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
' Kreuz entfernen
RaZelle.Borders(xlDiagonalDown).LineStyle = xlNone
RaZelle.Borders(xlDiagonalUp).LineStyle = xlNone
Select Case RaZelle.Value
Case Is > 13
RaZelle.Font.ColorIndex = 6
End Select
End If
Next RaZelle
Set RaBereich = Nothing
End Sub
vorab schon mal tausend Dank
Gruss, Glen
Anzeige