Ich möchte gerne das bei einem bestimmten Wert einer Zelle sich eine Linie oder ein Pfeil andersfarbig darstellt.
Ein Forumbenutzer hatte mir daraufhin diese Möglichkeit geschickt :
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Cells(1, 1) < 10 then
ActiveSheet.Shapes("Line 1").Select
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Line.ForeColor.SchemeColor = 14
Selection.ShapeRange.Line.Visible = msoTrue
Else
ActiveSheet.Shapes("Line 1").Select
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Line.ForeColor.SchemeColor = 13
Selection.ShapeRange.Line.Visible = msoTrue
End If
End Sub
Dies funktioniert aber man muss dafür die gewünschte Linie anklicken.
Kann mir da jemand helfen, damit dies auch ohne anklicken abläuft.
Danke