Dim i As Integer
Dim AktuellesJahr As String
Dim AktuellerMonat As String
Dim AktuellerTag As String
 
AktuellesJahr = Format(Date, "yyyy")
AktuellerMonat = Format(Date, "mm")
'AktuellerTag = Format(Date, "dd")
 
'MsgBox AktuellesJahr
'MsgBox AktuellerMonat
'MsgBox AktuellerTag
 
With Month1
 
AktuellerTag = Format(.Value, "dd")
i = AktuellerTag
 
For i = 1 To sevTextBox.MaxDays(AktuellesJahr, AktuellerMonat)
If i = AktuellerTag Then
.DayBackColor(i) = vbGreen
 
End If
 Next i
  End With