VBA wenn Samstag oder Sonntag
18.10.2020 14:23:28
Mani
Ich färbe mit folgendem Code die Zeilen, wenn das Datum ein Samstag oder Sonntag ist.
Sub Test()
Dim c As Variant
For Each c In ActiveSheet.Range("O3:O30")
If Weekday(c) = 1 Then
c.Interior.ColorIndex = 3
ElseIf Weekday(c) = 7 Then
c.Interior.ColorIndex = 3
End If
Next c
End Sub
Ich suche eine Möglichkeit das, wenn das Datum ein Samstag ist mir das Datum mit dem vorigen Freitag überschrieben wird. Und bei einem Sonntag das Datum mit dem folgenden Montag.
Habe es schon mit c.Date -1 (Bei Samstag) probiert. Leider ohne Erfolg.
Vielen Dank
Gruß der Mani