Microsoft Excel

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