Sub SonntageFormatieren()
Dim Zelle As Range
Sheets(Array("WR0101", "WR0102", "WR0103")).Select
For Each Zelle In ActiveSheet.Range("K2:AO2")
Select Case Weekday(Zelle)
Case 1
Zelle.Interior.ColorIndex = 35
Zelle.Offset(1, 0).Interior.ColorIndex = 35
Zelle.Offset(1, 0).Value = "SO"
Case Else
Zelle.Interior.ColorIndex = xlColorIndexNone
Zelle.Offset(1, 0).Interior.ColorIndex = xlColorIndexNone
Zelle.Offset(1, 0).Value = ""
End Select
Next Zelle
End Sub
Freundliche Gruesse
Ralf