Gruppe
DatumZeit
Problem
Wie kann ich in einer UserForm durch Auswahl in einer zweiten UserForm Datum und Zeit eintragen lassen?
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