VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Aus einem Kalender-Steuerelement Datum und Zeit auswählen

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

    


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