Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
UserForm mit Kalendersteuerelement immer mit aktuellem Datum
Gruppe
Calendar
Problem
Das Kalendersteuerelement soll immer mit dem aktuellen Datum starten. Falls das Steuerelement nicht istalliert ist, nehmen Sie die Installation über Access vor.
Lösung
Geben Sie den nachstehenden Code in das Klassenmodul der UserForm ein.
ClassModule: frmCal Private Sub cmdOK_Click() Unload Me End Sub Private Sub UserForm_Initialize() Calendar1.Year = Year(Date) Calendar1.Month = Month(Date) Calendar1.Day = Day(Date) End Sub StandardModule: Modul1 Sub Aufruf() frmCal.Show End Sub