bei folgendem Code kommt eine Fehlermeldung.
Ich gehe davon aus, dass der Bezug nicht Richtig ist.
Allerdings weiß ich nicht wie ich es umschreiben soll.
Sub WE_einfärben()
For sp = 5 To 35
'unzulässiger oder nicht ausreichender verweisß in nächster zeile bei ".Cells"
If Weekday(.Cells(1, sp).Value, 2) = 6 Then
With .Columns(sp)
.Interior.ColorIndex = 48
.Font.Color = vbWhite
.ColumnWidth = 4.69
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
End If
End Sub