VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Einlesen des aktuellen Datums und einer Datumsreihe

Gruppe

Dialog

Bereich

ComboBox

Thema

Einlesen des aktuellen Datums und einer Datumsreihe

Problem

Das Datum aus Zelle A1 soll in eine UserForm-TextBox übernomme werden. Die Datumsreihe wird in eine ComboBox eingelesen.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.




ClassModule: frmDate

Private Sub cboDate_Change()
   txtDate.Value = cboDate.Value
   lblDate.Caption = cboDate.Value
End Sub

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   cboDate.List = Range("A1").CurrentRegion.Value
   cboDate.ListIndex = 0
End Sub
StandardModule: Modul1

Sub CallForm()
   frmDate.Show
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und ComboBox