Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

In zweiter UserForm Werte aus erster UserForm anzeigen

Gruppe

UserForm

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