Hallo

Ich bekomme mein Thema nicht gelöst:

Es sollen alle Zellen mit dem Wert 1 in dem Bereich (C2:S46) die Schriftfarbe grün bekommen, wenn in Zelle W2 eine 9 steht.
Es sollen alle Zellen mit dem Wert 2 in dem Bereich (C2:S46) die Schriftfarbe grün bekommen, wenn in Zelle W3 eine 9 steht.
Es gibt leere Zellen in dem Bereich und W2 / W3 haben immer einen Wert von 0 bis 9

Ich habe versucht mir etwas zusammen zu kopieren aus dem Netz, aber ich scheitere immer.

Dieses hier läuft TOP !
Ich habe versucht es umzubauen, aber leider auch das nicht hinbekommen:
________________________________________________________________________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)

Dim strRange1 As String
Dim strRange2 As String

Dim rngSearch As Range, rngC As Range

strRange1 = "C2:C2,E2:E2,G2:G2,I2:I2,K2:K2,M2:M2,O2:O2,Q2:Q2,S2:S2"
strRange2 = "B2:B6,D2:D6,F2:F6,H2:H6,J2:J6,L2:L6,N2:N6,P2:P6,R2:R6"

On Error GoTo Fin

If Not Intersect(Target, Range(strRange1)) Is Nothing Then
Application.EnableEvents = False
For Each rngSearch In Intersect(Target, Range(strRange1)).Cells
If rngSearch > "" Then
For Each rngC In Range(strRange2).Cells
If rngC = rngSearch Then rngC.ClearContents
Next rngC
End If
Next rngSearch
End If

Fin:
Application.EnableEvents = True

End Sub
__________________________________________________________________________________________________________

Würde mich sehr über Hilfe freuen
VIELEN DANK
LG
Ralle