Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aus einem Kalender-Steuerelement Datum und Zeit auswählen

Gruppe

Kalender

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

    

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