hier möchte ich bitte noch , das die Schriftfarbe mit übertragen wird, die Zellfarbe funzt soweit.
<pre>Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rc As Range
Dim lx As Long
Dim bSet As Boolean
With Tabelle4
If Intersect(Target, Range("F11:AJ40,F50:AJ79,F89:AJ118")) Is Nothing Then Exit Sub
For Each rc In Target.Cells
For lx = 5 To 32 Step 4
If rc.Value = Cells(6, lx).Value Then 'aus diesem Bereich die Zellfarbe UND die Schriftfarbe holen
rc.Interior.ColorIndex = Cells(6, lx).Interior.ColorIndex
bSet = True
End If
Next lx
If Not (bSet) Then
rc.Font.ColorIndex = xlAutomatic
Next
End With
End Sub</pre>
Gruß Matze