Ich habe in Zelle Q8 bis Q38 Buchstaben stehen. Je nach Buchstabe soll sich die Farbe in G,H und I ändern.
Wenn in Q8 also ein "a" steht dann sollen sich G,H und I ändern.
Wenn Q8 = a dann
G die Farbe 45
H die Farbe 44
I die Farbe 45
Wenn Q8 = b dann
G die Farbe 39
H die Farbe 38
I die Farbe 37
Es gibt a,b,c,d,e,f,x,y,z
Das funktioniert in soweit das sich das Feld ändert in dem der Buchstabe steht.
Wie bekomme ich es hin das sich die anderen Zellen färben. Vielleicht ist da InStr auch der falsche Ansatz?
Sub farbe()
Dim rngCell As Range
For Each rngCell In Range("Q8:Q38")
If InStr(1, rngCell.Value, "a") > 0 Then
rngCell.Interior.ColorIndex = 45
End If
Next rngCell
End Sub