https://www.herber.de/bbs/user/15744.xls
Sub färben()
Dim i%, s%, z%, c As Range
Dim ber As Range
Set ber = [c1:h52,k1:p35]
Application.ScreenUpdating = False
For Each c In ber
For s = 11 To 16
For z = 40 To 49
If c = Cells(z, s) Then
c.Interior.ColorIndex = 3
End If
Next
Next
Next
Application.ScreenUpdating = True
End Sub