Private Sub Form_Load()
sevMonthView1.Refresh
 
End Sub
 
Private Sub sevMonthView1_Click(ByVal vDatum As Variant)
 
      If Weekday(vDatum, vbUseSystemDayOfWeek) = 7 Or Weekday(vDatum, _
        vbUseSystemDayOfWeek) = 4 Then
        sevText1.Value = vDatum
        Text1.Text = vDatum
      ElseIf Weekday(vDatum, vbUseSystemDayOfWeek) <> 7 Or Weekday(vDatum, _
        vbUseSystemDayOfWeek) <> 4 Then
        sevText1.Value = "Kein gültiges Datum"
        Text1.Text = "Kein gültiges Datum"
        MsgBox ("Kein gültiges Datum" & Chr(13) & "Wählen Sie entweder ein " & _
          WeekdayName(7, vbUseSystemDayOfWeek) & " oder ein " & WeekdayName(4, _
          vbUseSystemDayOfWeek))
      End If
 
End Sub
 
Private Sub sevMonthView1_MonthChange(ByVal nMonth As Long, ByVal nYear As _
  Long, bCancel As Boolean)
  Dim i As Long
 
  With sevMonthView1
        .ShowToday = False
        .SelectedColor = .BackColor
    ' Alle Tage des Monats durchlaufen
    For i = 1 To sevTextBox.MaxDays(nYear, nMonth)
      If Weekday(DateSerial(nYear, nMonth, i), vbUseSystemDayOfWeek) = 7 Or _
        Weekday(DateSerial(nYear, nMonth, i), vbUseSystemDayOfWeek) = 4 Then
        .DayBackColor(i) = vbRed
        .DayForeColor(i) = vbBlack
      ElseIf Weekday(DateSerial(nYear, nMonth, i), vbUseSystemDayOfWeek) <> _
        7 Or Weekday(DateSerial(nYear, nMonth, i), vbUseSystemDayOfWeek) <> 4 Then
        .DayForeColor(i) = vbYellow
        .HighlightColor = vbYellow
      End If
    Next i
  End With
End Sub