Thema: UserForm mit Kalendersteuerelement immer mit aktuellem Datum

Home

Gruppe

Dialog

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

xlDialogInsertHyperlink.show	Arbeitmappen über Dialogfeld zusammen fassen
5.0 Dialog	Calendar.show
Speichern unter Dialog in Word aufrufen inkl. Pfad	Druckerdialog
Dateityp im "Speichern unter"-Dialog vorgeben	Makro stoppen, wenn Excel-Dialog?
xlDialogOpen anpassen	Klick in definierten Rangebereich startet Dialog
xlDialogOpen bei Excel 2007 funzt nicht	FileDialog inkl. Anklicken von Desktop, Eigene D.
Grösse Dialogfenster der InputBox	Dialogfeld unterdrücken
Dialog "permanently delete sheets" unterbinden	Format-Dialog funktioniert nicht mehr
Dialog "Verknüpfung aktualisieren"	Ordnerdialog und Dateidialog
Ordnerdialog und dateidialog	Ordnerdialog und Dateidialog
Filedialog	Herber/Beispiele/Dialoge/Checkbox/137601
Bilder bei Click im Dialogfeld	Suchdialog über VBA aufrufen
mit Wert aus Combobox Dialog öffnen	Diagramm als Grafik mit Speicherdialog exportieren
yet another calendar...	Dialogfenster zum kopieren
Problem mit hwhCalendar_Developer.xls	FileDialog-Objekt unter O2k
Abrage von Dialogfeldargumenten	Calendar.Value in eigene Spalte im Tabellenblatt
Datei Auswählen Dialog (Application.FileDialog)	xlDialogOpen/FindFile ohne Open
Dialogfeld zum pdf öffnen	Calendar Control 11.0
Dialogfeld schließen, wenn Benutzer nichts eingibt	Problem mit ApplicationDialogs
Das Dialogfeld "sortieren" aufrufen?	Keine Dialogbox bei SaveAs
Dialogbox	Bei xlDialogSaveAs Dateinamen vorgeben
Blattauswahldialog...	speichern unter dialogbox problem
Speicherndialog bei BeforeClose unterbinden	Dialogfenster "Aktualisierung der Verknüpfungen&qu
speichern unter dialogbox einbinden	Dialogfeld Beschriftungsbereiche
Problem nach 'application.dialogs(xldialogsendmail	dialog aktualisieren