Public Function KalenderEintrag(xmonth As Long, xyear As Long)
 
Dim Datum As Date
Dim Tag As Long
Dim Monat As Long
Dim Jahr As Long
Dim sDatum() As String
 
Dim i As Integer
 
For i = 1 To BenutzerMain.GridUrlaub.Rows
'Datum aus Datenbank/BenutzerMain.GridUrlaub auslesen
Datum = BenutzerMain.GridUrlaub.Text(i, 3)
 
'Aufsplitten des Datums in Tag, Monat, Jahr
sDatum = Split(Datum, ".")
Tag = sDatum(0)
Monat = sDatum(1)
Jahr = sDatum(2)
 
 
If xyear = Jahr Then
  If xmonth = Monat Then
    With BenutzerMain.sevMonthView1
        .DayBackColor(Tag) = vbGreen
    End With
  End If
End If
 
Next
 
End Function