Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Kalender