Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

In Abhängigkeit zur RefEdit-Auswahl UserForm aufrufen

Gruppe

RefEdit

Problem

Wie kann ich über ein UserForm-RefEdit-Steuerelement einen Typ auswählen, dann in Abhängigkeit vom Typ eine UserForm aufrufen und die Daten eintragen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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