Funktion VBA: Weekday

Beschreibung

Die Funktion VBA Weekday gibt die Wochentagsnummer (von 1 bis 7) für das angegebene Datum zurück.

Syntax Weekday

Weekday(Datum)

Oder

Weekday(Datum, erster_Tag_der_Woche)

Nummerierung

Standardmäßig ist der erste Tag der Woche Sonntag (1) und der letzte Tag Samstag (7).

Um die Nummerierung so zu ändern, dass Montag der erste Tag der Woche (1) und Sonntag der letzte Tag der Woche (7) ist, fügen Sie bei Verwendung dieser Funktion den Wert 2 als zweites Argument hinzu:

Weekday(Datum, 2)

Beispiel VBA Weekday

Verwenden der Funktion Weekday zum Anzeigen der Wochentagsnummer für mehrere Datumsangaben:

Sub WeekdayExample1()
    
    MsgBox Weekday(#11/2/2020#, 2)          'Rückgabe: 1
    MsgBox Weekday("3.11.20", 2)            'Rückgabe: 2
    MsgBox Weekday("4 nov 2020", 2)         'Rückgabe: 3
    MsgBox Weekday("11.05.2020 17:30:21", 2) 'Rückgabe: 4
    
End Sub

Verwenden der Funktion Weekday zur Unterscheidung zwischen einem Wochentag und einem Wochenende:

Sub WeekdayExample2()

    If Weekday(Now, 2) < 6 Then
        MsgBox "Wochentag..."
    Else
        MsgBox "Es ist das Wochenende!"
    End If
    
End Sub