Gruppe
Dialog
Problem
Das Datum aus Zelle A1 soll in eine UserForm-TextBox übernomme werden. Die Datumsreihe wird in eine ComboBox eingelesen.
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