Habe hier ein Beispiel hochgeladen:
z.Zt ist nur ein Monat vorhanden, die restl Monate kommen natürlich noch dazu.
https://www.herber.de/bbs/user/63841.xls
Vielen Dank im Voraus
Gruss Andreas
Sub Einfaerben()
Dim wks As Worksheet
Dim Zelle As Range, Farbe As Range
For Each wks In ActiveWorkbook.Worksheets
Select Case wks.Name
Case "Personal", "Vorlage"
'do nothing
Case Else
wks.UsedRange.Font.ColorIndex = xlColorIndexAutomatic
For Each Farbe In Worksheets("Personal").Range("Farben")
For Each Zelle In wks.UsedRange
If Zelle.Value = Farbe.Value Then
Zelle.Font.Color = Farbe.Font.Color
End If
Next
Next
End Select
Next
End Sub
Sub Einfaerben()
Dim wks As Worksheet
Dim Zelle As Range, Farbe As Range
For Each wks In ActiveWorkbook.Worksheets
Select Case wks.Name
Case "Personal", "Vorlage"
'do nothing
Case Else
Application.ScreenUpdating = False
wks.UsedRange.Font.ColorIndex = xlColorIndexAutomatic
For Each Farbe In Worksheets("Personal").Range("Farben")
For Each Zelle In wks.UsedRange
If Zelle.Value = Farbe.Value Then
Zelle.Font.Color = Farbe.Font.Color
End If
Next
Next
Application.ScreenUpdating = True
End Select
Next
End Sub