Gruppe
Ereignis
Problem
Wie kann ich einen Pfeil mit folgenden Bedingungen manipulieren: - Wenn A1<B1 dann Pfeil rot nach unten - Wenn A1=B1 dann Pfeil gelb nach links - Wenn A1>B1 dann Pfeil grün nach oben
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub
With Shapes("Autoform 1")
If Range("A1").Value > Range("B1") Then
.Rotation = 90#
.Fill.ForeColor.SchemeColor = 50
ElseIf Range("A1").Value < Range("B1") Then
.Rotation = 270#
.Fill.ForeColor.SchemeColor = 53
Else
.Rotation = 0#
.Fill.ForeColor.SchemeColor = 13
End If
End With
End Sub