Thread: fargeskifte på figur etter summen i en Celle

Er det overhode mulig å få en figur til å skifte farge når verdien i en celle skifter feks 1. figuren blir rød, 2 figuren blir grønn???

Hej,

Koden skal placeres i arkets kode modul.
Du kommer til arkets kodemodul ved at trykke på arket og derefter "Se kode", her indsætter du koden

Når værdien i celle A1 ændres, skifter farven på figuren

Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Target.Address = "$A$1" Then ' Skift til at passe celle
       If Sheets(1).Range("A1").Value = "1" Then ' Skift til at passe med ark og celle
            With ActiveSheet.Shapes("Oval 1").Fill.ForeColor ' Skift figurens navn i parentesen
                .SchemeColor = 17
            End With
        ElseIf Sheets(1).Range("A1").Value = "2" Then ' Skift til at passe med ark og celle
            With ActiveSheet.Shapes("Oval 1").Fill.ForeColor ' Skift figurens navn i parentesen
                .SchemeColor = 10
            End With
        End If
    End If
End Sub

Med venlig hilsen.

Steffen Thomsen