Public Sub Wochentag()
    Dim Datum1 As Date, Tag1, strwochentag As String
    Datum1 = Now              ' Datum zuweisen
    Tag1 = Weekday(Datum1) 
    If Tag1 = 1 Then
        strwochentag = "Sonntag"
    ElseIf Tag1 = 2 Then
        strwochentag = "Montag"
    ElseIf Tag1 = 3 Then
        strwochentag = "Dienstag"
    ElseIf Tag1 = 4 Then
        strwochentag = "Mittwoch"
    ElseIf Tag1 = 5 Then
        strwochentag = "Donnerstag"
    ElseIf Tag1 = 6 Then
        strwochentag = "Freitag"
    Else: strwochentag = "Samstag"
    End If
    MsgBox "Heute ist " & strwochentag, vbOKOnly, "Wochentag"
End Sub