Gruppe
Dialog
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?
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