Thema: UserForm in Abhängigkeit einer RefEdit-Auswahl anzeigen

StandardModule: basMain

Sub CallForm()
   frmAuswahl.Show
End Sub

ClassModule: frmAuswahl

Private Sub cmdContinue_Click()
    Unload Me
    Select Case Range(RefEdit1.Value).Value
        Case "a": frmA.Show
        Case "b": frmB.Show
        Case "c": frmC.Show
    End Select
End Sub

ClassModule: frmA

Private Sub cmdEintragen_Click()
    With Worksheets("Ausgabe")
        .Range("B1") = Label4.Caption
        .Range("B2") = Label5.Caption
        .Range("B3") = TextBox1.Value
    End With
    Unload Me
End Sub

ClassModule: frmB

Private Sub cmdEintragen_Click()
    With Worksheets("Ausgabe")
        .Range("B1") = Label4.Caption
        .Range("B2") = Label5.Caption
        .Range("B3") = TextBox1.Value
    End With
    Unload Me
End Sub

ClassModule: frmC

Private Sub cmdEintragen_Click()
    With Worksheets("Ausgabe")
        .Range("B1") = Label4.Caption
        .Range("B2") = Label5.Caption
        .Range("B3") = TextBox1.Value
    End With
    Unload Me
End Sub

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