Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

UserForm in Abhängigkeit einer RefEdit-Auswahl anzeigen

Gruppe

RefEdit

Problem

Wie kann ich in Abhängigkeit der über ein RefEdit-Feld einer UserForm getroffenen Auswahl eine zweite UserForm anzeigen lassen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

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