Meerdere vormen van kleur veranderen

[Hooftmans]

Hoi,
ik ben nieuw op dit forum en beperkt bekend met VBA. Maar de interesse is er. :shocked:

Ik heb ontdekt hoe ik de kleur van een vorm (cirkel) in Excel kan wijzigen op basis van een celwaarde.

Punt is, ik heb niet 1 vorm, maar 8 vormen. Het moet fungeren als een soort stoplichtsysteem. Is de vorm groen, dan illustreert dit dat het betreffende onderdeel voldoende is.

De code hieronder heeft betrekking op een vorm met de naam "Werving_Selectie". Deze wil ik uitbreiden met nog 7 andere vormen waarvan de waarde staat in A2,A3,A4,A5 etc.

Ben heel benieuwd of iemand me hiermee verder kan helpen.

Private Sub Worksheet_Change(ByVal Target As Range)


If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
If Target.Value < 100 Then
ActiveSheet.Shapes("Werving_Selectie").Fill.ForeColor.RGB = vbRed
ElseIf Target.Value >= 100 And Target.Value < 200 Then
ActiveSheet.Shapes("Werving_Selectie").Fill.ForeColor.RGB = vbYellow
Else
ActiveSheet.Shapes("Werving_Selectie").Fill.ForeColor.RGB = vbGreen
End If
End If
End Sub

 

[AccessGuru]

Je doet er beter aan om een bestand voorbeeld te plaatsen i.p.v. code. Want dat kijkt een stuk makkelijker, en dan kunnen we testen met de andere objecten. Tweede tip: code kun je opmaken met de CODE tag (de knop met #) zodat hij er beter leesbaar uitziet. Nu is het een korte code, maar toch al slecht leesbaar .

 

[snb]

Sub M_snb()
  Shapes(1).Fill.ForeColor.RGB = Choose(Application.Match(20, Array(0, 100, 200), 1), vbRed, vbYellow, vbGreen)
End Sub