Gruppe
Dialog
Problem
Eine erste UserForm soll eine zweite aufrufen, in deren TextBox die Auswahl einer ComboBox aus der ersten UserForm angezeigt wird.
ClassModule: frmFirst
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
frmSecond.Show
End Sub
Private Sub UserForm_Initialize()
Dim iMonth As Integer
For iMonth = 1 To 12
cboValues.AddItem Format(DateSerial(1, iMonth, 1), "mmmm")
Next iMonth
End Sub
ClassModule: frmSecond
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
txtValue.Text = frmFirst.cboValues.Value
End Sub
StandardModule: Modul1
Sub DialogAufruf()
frmFirst.Show
End Sub