Hallo Zusammen,
Bei diesem Code bekomme ich den Laufzeitfehler '13': Typen unverträglich
Dim myWorksheet As Worksheet, myRange As Range
For Each myWorksheet In ThisWorkbook.Worksheets
With myWorksheet
For Each myRange In .Range("A3:A33")
If Weekday(myRange.Value) = 1 Or Weekday(myRange.Value) = 7 Then
.Range(.Cells(myRange.Row, 1), .Cells(myRange.Row, 8)).Interior.ColorIndex = 22
Else
.Range(.Cells(myRange.Row, 1), .Cells(myRange.Row, 8)).Interior.ColorIndex = xlColorIndexNone
End If
Next
End With
Next
Ich habe ein Workbook mit 12 Worksheets (Jan - Dez). In Spalte A ist das Datum jeweils wie folgt eingetragen:
=DATUM(B1;11;1) wobei in B1 das aktuelle Jahr ist
=A3+1
...
Schon im Voraus ein grosses Dankeschön :)
|