Achtergrond kleur verandert niet

[rositasijm]

Dag allemaal!

Ik probeer voor elkaar te krijgen dat een deel van een blad (in dit geval Week2) een kleurtje krijgt wanneer een van de waardes in blad R1 in een bepaalde rij onder bepaalde waardes komt. Alleen verandert er niks en hij blijft hangen op rood en soms oranje...

Ik hoop dat iemand me zou kunnen helpen! Bij voorbaat dank!

Groetjes,

Rosita Sijm

ps. zo ziet de code eruit die we tot nu toe hebben:

Private Sub Worksheet_Change(ByVal Target As Range)
*
*
If Sheets("R2").Range("B35") And Sheets("R2").Range("c35") And Sheets("R2").Range("d35") And Sheets("R2").Range("e35") And Sheets("R2").Range("f35") And Sheets("R2").Range("g35") And Sheets("R2").Range("h35") And Sheets("R2").Range("i35") And Sheets("R2").Range("j35") And Sheets("R2").Range("k35") And Sheets("R2").Range("l35") And Sheets("R2").Range("m35") And Sheets("R2").Range("n35") And Sheets("R2").Range("o35") And Sheets("R2").Range("p35") And Sheets("R2").Range("q35") And Sheets("R2").Range("r35") >= 0 Then
*
Sheets("Week2").Range("A1:AR13").Interior.ColorIndex = 2
'wit maken onder 10000
*
*
*
ElseIf Sheets("R2").Range("B35") Or Sheets("R2").Range("c35") Or Sheets("R2").Range("d35") Or Sheets("R2").Range("e35") Or Sheets("R2").Range("f35") Or Sheets("R2").Range("g35") Or Sheets("R2").Range("h35") Or Sheets("R2").Range("i35") Or Sheets("R2").Range("j35") Or Sheets("R2").Range("k35") Or Sheets("R2").Range("l35") Or Sheets("R2").Range("m35") Or Sheets("R2").Range("n35") Or Sheets("R2").Range("o35") Or Sheets("R2").Range("p35") Or Sheets("R2").Range("q35") Or Sheets("R2").Range("r35") < 0 Then
*
Sheets("Week2").Range("A1:AR13").Interior.ColorIndex = 44
'geel maken onder de 0
*
*
*
ElseIf Sheets("R2").Range("B35") Or Sheets("R2").Range("c35") Or Sheets("R2").Range("d35") Or Sheets("R2").Range("e35") Or Sheets("R2").Range("f35") Or Sheets("R2").Range("g35") Or Sheets("R2").Range("h35") Or Sheets("R2").Range("i35") Or Sheets("R2").Range("j35") Or Sheets("R2").Range("k35") Or Sheets("R2").Range("l35") Or Sheets("R2").Range("m35") Or Sheets("R2").Range("n35") Or Sheets("R2").Range("o35") Or Sheets("R2").Range("p35") Or Sheets("R2").Range("q35") Or Sheets("R2").Range("r35") <= -4 Then
*
Sheets("Week2").Range("A1:AR13").Interior.ColorIndex = 45
'oranje maken onder de -4
*
*
*
ElseIf Sheets("R2").Range("B35") Or Sheets("R2").Range("c35") Or Sheets("R2").Range("d35") Or Sheets("R2").Range("e35") Or Sheets("R2").Range("f35") Or Sheets("R2").Range("g35") Or Sheets("R2").Range("h35") Or Sheets("R2").Range("i35") Or Sheets("R2").Range("j35") Or Sheets("R2").Range("k35") Or Sheets("R2").Range("l35") Or Sheets("R2").Range("m35") Or Sheets("R2").Range("n35") Or Sheets("R2").Range("o35") Or Sheets("R2").Range("p35") Or Sheets("R2").Range("q35") Or Sheets("R2").Range("r35") <= -7 Then
*
* Sheets("Week2").Range("A1:AR13").Interior.ColorIndex = 3
'rood maken onder de -7
Else
End If
*
*
End Sub

 

[E v R]

Plaats eens een gelijkend vb-bestandje

met bijvoorbeeld dit stukje If Sheets("R2").Range("B35") And
kijk je of de waarde van B35 TRUE is, je zult dus steeds < 0 moeten toevoegen.

Maar 1000x AND of OR kan waarschijnlijk wel wat optimaler

++ als het gaat om een wijziging op Sheet R2 dan kun je al die verwijzingen naar Sheet R2 ook achterwege laten

++ en eventueel gedacht aan voorwaardelijke opmaak?

 

[gast0660]

Deze?
Code onder blad R2

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, cel As Range
Set rng = [B35:R35]
With Sheets("Week2")
.[A1:AR13].Interior.ColorIndex = 2
For Each cel In rng
If cel.Value < 0 And cel.Value > -4 Then .[A1:AR13].Interior.ColorIndex = 6
If cel.Value <= -4 And cel.Value > -7 Then .[A1:AR13].Interior.ColorIndex = 45
If cel.Value <= -7 Then .[A1:AR13].Interior.ColorIndex = 3
Next cel
End With
End Sub

 

[rositasijm]

Ik ben er uiteindelijk uitgekomen!
Heel erg bedankt voor de reacties!!!