Excel und VBA: Formeln, Programmierung, Lösungen

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