Hallo zusammen,
mit folgendem VBA-Code kann man die Zelle mit dem Datum jeweils farbig unterlegen.
Ich möchte aber gerne die ganze Zeile, in der die Zelle steht, farbig
unterlegen.
Private Sub Worksheet_Activate()
For Each oCell In Range(Cells(7, 1), Cells(37, 1))
If WeekDay(oCell.Value) = 7 Or WeekDay(oCell.Value) = 1 Then
With oCell.Interior
.Pattern = xlGray50
.PatternColorIndex = 42
End With
End If
Next oCell
End Sub
Vielleicht kann mir jemand weiterhelfen.
Vielen Dank im voraus.
Franz