HERBERS Excel-Forum - die Beispiele

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