Private Sub zurueck_Click()
 
Dim NeuerTag As Integer
NeuerTag = Diary.MonthView1.Day - 1
If Not NeuerTag < 1 Then
    SelectedDate = NeuerTag & "." & Diary.MonthView1.Month & "." & _
      Diary.MonthView1.Year
    Diary.MonthView1.Value = SelectedDate
    Diary.MonthView1.Refresh
Else
    MsgBox "Sie können nur innerhalb eines Monats Blättern!"
End If
 
End Sub