danke noch mal für den letzten Code. Würde Dich gerne was dazu fragen.
Gruß Tobias
Dein letztes Posting:
Hi,
mal so ein Versuch starten?
Sub Feiertage_einbeziehen()
Dim indx1 As Integer
Dim Feiertage As Range
Dim rngCell As Range
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
wks1.Unprotect
Set Feiertage = wks2.Range(wks2.Cells(4, 2), wks2.Cells(16, 10)) 'alle Feiertage in einer Range
For indx1 = 15 To 11 Step -1 '("O2") 'Anfangs-Datum ("K2") 'End-Datum
For Each rngCell In Feiertage
If wks1.Cells(2, indx1) = rngCell Then
With wks1.Range("E6:E33")
.Interior.ColorIndex = 40
.Interior.Pattern = xlLightUp
.Interior.PatternColorIndex = xlAutomatic
End With
Exit Sub ' man muß ja nur ein mal Formatieren, der Bezug ändert sich ja nicht
End If
Next
Next indx1
End Sub
Bye
Nike