Gruppe
DatumZeit
Bereich
Kalender
Thema
Aus einem Kalender-Steuerelement Datum und Zeit auswählen
Problem
Wie kann ich in einer UserForm durch Auswahl in einer zweiten UserForm Datum und Zeit eintragen lassen?
Lösung
Den nachfolgenden Code in das Klassenmodul der benannten UserForms einfügen
ClassModule: Tabelle1
Private Sub cmdDialogAufruf_Click()
frmAufruf.Show
End Sub
ClassModule: frmAufruf
Private Sub cmdAuswahl_Click()
frmDateControl.Show
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
ClassModule: frmDateControl
Private Sub cmdWeiter_Click()
frmAufruf.lblDatum.Caption = _
Format(calJahr.Value, "dd. mmmm yyyy")
frmAufruf.lblZeit.Caption = _
Format(cboZeit.Value, "hh:mm")
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim dTime As Double
Dim iList As Integer
For iList = 1 To 24 * 4
cboZeit.AddItem Format(dTime, "hh:mm")
dTime = dTime + (1 / 24 / 4)
Next iList
cboZeit.ListIndex = 0
End Sub