VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

UserForm mit Kalendersteuerelement immer mit aktuellem Datum

Gruppe

Dialog

Bereich

Calendar

Thema

UserForm mit Kalendersteuerelement immer mit aktuellem Datum

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und Calendar