Kalenderelement Monat Jahr change
Henrik
im Klassenmodul der Userform stehen folgende Ereignisse:
Private Sub Calendar1_Click()
Call Datumaendern
End Sub
Private Sub Calendar1_NewMonth()
Call Datumaendern
End Sub
Sub Datumaendern()
Dim DatumNeu As Date, TagNeu, MonatNeu, JahrNeu
With Calendar1
TagNeu = Day(.Value)
MonatNeu = month(.Value)
JahrNeu = Year(.Value)
DatumNeu = Format(TagNeu & "." & MonatNeu & "." & JahrNeu, "dd.mm.yyyy")
Kalender.TextBox1.Value = DatumNeu
End With
End Sub
Über das Ereignis "NewMonth" wird "Datumaendern" zwar aufgerufen, allerdings wird "MonatNeu" nicht aktualisiert, sondern nur der schon geladene Monnat übernommen.
Muss ich das irgendwie noch extra aktualisieren? z.B. Im Ereignis selbst bevor ich "Datumaendern" aufrufe?
Danke für Eure Hilfe
Henrik