Gruppe
Dialog
Bereich
UserForm
Thema
In zweiter UserForm Werte aus erster UserForm anzeigen
Problem
Eine erste UserForm soll eine zweite aufrufen, in deren TextBox die Auswahl einer ComboBox aus der ersten UserForm angezeigt wird.
Lösung
Geben Sie den nachstehenden Code in das Klassenmodul der UserForm ein.
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