Microsoft Excel

Herbers Excel/VBA-Archiv

VBA wenn Samstag oder Sonntag

Betrifft: VBA wenn Samstag oder Sonntag von: Mani
Geschrieben am: 18.10.2020 14:23:28

Guten Tag,

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

Betrifft: AW: VBA wenn Samstag oder Sonntag
von: Hajo_Zi
Geschrieben am: 18.10.2020 14:27:05

Hallo Mani,

warum nicht bedingte Formatierung, ganz ohne VBA.

GrußformelHomepage

Betrifft: Hajo, alles lesen.......owT
von: Helmut
Geschrieben am: 18.10.2020 14:38:30



Betrifft: AW: Hajo, alles lesen.......owT
von: Mani
Geschrieben am: 18.10.2020 14:45:07

Hallo Hajo
meinst du das ist Ratsam bei über 50 Spalten?

Gruß
Mani

Betrifft: AW: nur eine Bedingung
von: Hajo_Zi
Geschrieben am: 18.10.2020 14:50:04

Hallo Mani,

es ist nur eine Bedingung bei max 16.384 Spalten.

Gruß Hajo

Betrifft: AW: Hajo, alles lesen.......owT
von: Werner
Geschrieben am: 18.10.2020 15:36:30

Hallo,
Sub Test()
Dim c As Range

For Each c In Range("O3:O30")
    If Weekday(c, 2) = 6 Then
        c = c - 1
    ElseIf Weekday(c, 2) = 7 Then
        c = c + 1
    End If
Next c
End Sub
Gruß Werner

Beiträge aus dem Excel-Forum zum Thema "VBA wenn Samstag oder Sonntag"