[Excel/VBA] Automatisering

[Martin0]

Hallo,

Ik zit met deze situatie:



En de code is:

Private Sub controleren()

Range("E4").Select
ActiveCell.Offset(i, 0).Select

For i = 1 To Range("totaal").Cells.Count
Calculate
If Range("totaal").Cells(i) > 100 Then
Range("totaal").Cells(i).Interior.Color = rgbLightGreen
ElseIf Range("totaal").Cells(i) < 101 Then
Range("totaal").Cells(i).Interior.Color = rgbRed

End If

Next i

Range("A1").Select

End Sub

Ik heb op google al gezocht en dingen geprobeerd(gestoeid met if commands)
Ik kom er gewoon niet meer uit.
Ik probeer dat de kleur in een cel automatisch aanpast aan de waarde, ik heb nu op knop, dat werkt goed maar het moet automatisch, bvb: waarde komt onder de 101 dan moet de cel rood worden.
Als u meer informatie nodig heeft over het project hoor ik het graag dan post ik die informatie, ik ga nog verder zoeken op google.

Bij voorbaat dank,

Martin

[Martin0]

ik heb het al gevonden sorry voor de post