Shape per True/False färben
25.05.2018 10:58:22
Andreas
ich möchte per Zellwert die Farbe eines Shapes steuern.
Habe folgenden Code, der allerdings nicht funktioniert:
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.Range("Y2").Value = True Then
ActiveSheet.Shapes("Rechteck1").Fill.ForeColor.RGB = vbGreen
ElseIf ActiveSheet.Range("Y2").Value = False Then
ActiveSheet.Shapes("Rechteck1").Fill.ForeColor.RGB = vbRed
End If
End Sub
Kann mir jemand sagen, was ich falsch mache?