Wie verwende ich die Weekday-Funktion in VBA?

In VBA (Visual Basic for Applications) wird die `Weekday`-Funktion verwendet, um den Wochentag eines bestimmten Datums zu ermitteln. Die Funktion gibt einen Integer-Wert zurück, der den Wochentag darstellt (Sonntag bis Samstag). Hier ist, wie Sie die `Weekday`-Funktion verwenden können:

Syntax

Weekday(date, [firstdayofweek])

date: Erforderlich. Ein Variant-Wert oder ein numerischer Ausdruck, der ein Datum darstellt.
firstdayofweek (Optional): Ein konstanter Wert, der den ersten Tag der Woche angibt. Standardmäßig ist dies `vbSunday`.

Konstante für `firstdayofweek`

`vbUseSystem` (0) – Verwenden Sie die Systemeinstellung.
`vbSunday` (1) – Sonntag (Standard).
`vbMonday` (2) – Montag.
`vbTuesday` (3) – Dienstag.
`vbWednesday` (4) – Mittwoch.
`vbThursday` (5) – Donnerstag.
`vbFriday` (6) – Freitag.
`vbSaturday` (7) – Samstag.

Beispiel

Hier ist ein einfaches Beispiel, wie Sie die `Weekday`-Funktion in einem VBA-Makro verwenden können:

Sub GetWochentag()
    Dim datum As Date
    Dim wochentag As Integer

    ' Ein bestimmtes Datum festlegen
    datum = #10/15/2023#

    ' Den Wochentag ermitteln
    wochentag = Weekday(datum, vbMonday)

    ' Ausgabe des Ergebnisses
    Select Case wochentag
        Case 1
            MsgBox "Das Datum fällt auf einen Montag."
        Case 2
            MsgBox "Das Datum fällt auf einen Dienstag."
        Case 3
            MsgBox "Das Datum fällt auf einen Mittwoch."
        Case 4
            MsgBox "Das Datum fällt auf einen Donnerstag."
        Case 5
            MsgBox "Das Datum fällt auf einen Freitag."
        Case 6
            MsgBox "Das Datum fällt auf einen Samstag."
        Case 7
            MsgBox "Das Datum fällt auf einen Sonntag."
    End Select
End Sub

In diesem Beispiel wird das Datum auf den 15. Oktober 2023 festgelegt. Die `Weekday`-Funktion gibt den Wochentag als Integer zurück, wobei berücksichtigt wird, dass die Woche am Montag beginnt. Anschließend wird der entsprechende Wochentag als Meldung ausgegeben.

facebooklinkedin