VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

In zweiter UserForm Werte aus erster UserForm anzeigen

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

    


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