Gruppe
Dialog
Bereich
RefEdit
Thema
In Abhängigkeit zur RefEdit-Auswahl UserForm aufrufen
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