VBA-Programmierung in Microsoft Excel

In Abhängigkeit zur RefEdit-Auswahl UserForm aufrufen

StandardModule: basMain

Sub Main()
    frmAuswahl.Show
End Sub

ClassModule: Tabelle1

Private Sub CommandButton1_Click()
    Call Main
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: frmAuswahl

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

ClassModule: frmB

Private Sub cmdContinue_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 cmdContinue_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