Option Explicit
Dim Merke_Dateumauswahl As Date
 
Private Sub MonthView1_SelChange(ByVal StartDate As Date, ByVal EndDate As _
  Date, Cancel As Boolean)
    If Mid(Merke_Dateumauswahl, 4, 2) <> Mid(StartDate, 4, 2) Then
        On Error Resume Next
        Markiere_Datum "23.03.2006"
        Markiere_Datum "24.03.2006"
        Markiere_Datum "14.03.2006"
        Markiere_Datum "03.03.2006"
    End If
    Merke_Dateumauswahl = StartDate
    MsgBox "Hier ist es noch da"
End Sub
 
Public Sub Markiere_Datum(Datum As Date)
    MonthView1.DayBold(Datum) = True
End Sub