Excel tabkleur aanpassen op basis van celwaarden

[3xc3ln00b]

Hallo,

Ik ben nieuw met macro's maar zou toch graag het volgende willen bewerkstelligen:

Ik wil graag de kleur van een tabblad automatisch doen veranderen met de volgende voorwaarden:

- Als H11 >= 1,0 en H14 >= 1,5 dan moet de tabkleur groen worden
- Als H11 < 1,0 en H14 <1,5 dan moet de tabkleur oranje worden

Ik heb het forum uitgepluist en e.e.a. al geprobeerd zoals bijvoorbeeld op deze thread:
http://www.helpmij.nl/forum/showthread.php/380963-Tabkleur-aanpassen-op-basis-van-conditie
maar dan krijg ik helaas "Het subscript valt buiten het bereik"...

Hoe moet ik dit oplossen?

Gr,
L/.

 

[3xc3ln00b]

Ik heb 'm al opgelost.
Dit heb ik gebruikt:

Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value >= 1 And Range("A2").Value >= 1.5 Then
ActiveSheet.Tab.Color = vbGreen
Else
ActiveSheet.Tab.Color = vbRed
End If
End Sub

Gr,
L/.