Private Sub CommandButton2_Click()
Me!Calendar1.NextDay
End Sub
Private Sub CommandButton1_Click()
x = ""
Tag = Calendar1.Day + 1
monat = Calendar1.Month
jahr = Calendar1.Year
Datum = Tag & "." & monat & "." & jahr
wochentag = Weekday(Datum)
If wochentag = 7 Then x = 3
If wochentag > 1 And wochentag < 7 Then x = 1
Me!Calendar1.Day = Calendar1.Day + x
End Sub
Private Sub CommandButton1_Click()
If Weekday(Calendar1, vbMonday) = 5 Then
Calendar1 = Calendar1 + 3
Else
Calendar1 = Calendar1 + 1
End If
End Sub
Private Sub UserForm_Initialize()
If Weekday(Date, vbMonday) > 5 Then
Calendar1 = Date + 8 - Weekday(Date, vbMonday)
End If
End Sub
Private Sub CommandButton1_Click()
Dim intZ As Integer
Dim rngFeier As Range
Dim bolDat As Boolean
Set rngFeier = Range("A1:A3")
Do
Me.Calendar1.NextDay
Select Case Weekday(Me.Calendar1.Value, vbMonday)
Case vbSaturday: bolDat = True
Case vbSunday: bolDat = True
End Select
For intZ = 0 To rngFeier.Rows.Count - 1
If CDbl(Me.Calendar1.Value) <> CDbl(Cells(rngFeier.Row + intZ, rngFeier.Column)) _
And Not bolDat Then
bolDat = False
Else: bolDat = True: End If
Next
If bolDat = False Then
Exit Do
Else: bolDat = False: End If
Loop
End Sub
Private Sub CommandButton1_Click()
Dim intZ As Integer
Dim rngFeier As Range
Dim bolDat As Boolean
Set rngFeier = Range("A1:A3")
Do
Me!Calendar1.NextDay
Select Case Weekday(Me!Calendar1.Value, vbMonday)
Case vbSaturday: bolDat = True
Case vbSunday: bolDat = True
End Select
For intZ = 0 To rngFeier.Rows.Count - 1
If CDbl(Me!Calendar1.Value) <> CDbl(Cells(rngFeier.Row + intZ, rngFeier.Column)) _
And Not bolDat Then bolDat = False
Else: bolDat = True: End If
Next
If bolDat = False Then
Exit Do
Else: bolDat = False: End If
Loop
End Sub
Public dblCal As Double
Private Sub Calendar1_Click()
If dblCal = 0 Then dblCal = Date
If Day(Me.Calendar1.Value) = 6 Then
Me.Calendar1.Value = dblCal
Else: dblCal = Me.Calendar1.Value
End If
End Sub