HERBERS Excel-Forum - die Beispiele

Thema: UserForm in Abhängigkeit einer RefEdit-Auswahl anzeigen

Home

Gruppe

Dialog

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

Beiträge aus dem Excel-Forum zu den Themen Dialog und RefEdit

xlDialogInsertHyperlink.show RefEdit Feld verlassen - Problem mit SetFocus
Strings ersetzen mit RefEdit Schleife - Fehler Arbeitmappen über Dialogfeld zusammen fassen
5.0 Dialog Speichern unter Dialog in Word aufrufen inkl. Pfad
Druckerdialog Dateityp im "Speichern unter"-Dialog vorgeben
Makro stoppen, wenn Excel-Dialog? xlDialogOpen anpassen
Klick in definierten Rangebereich startet Dialog Loop bei Fehler in RefEdit Feld?
xlDialogOpen bei Excel 2007 funzt nicht FileDialog inkl. Anklicken von Desktop, Eigene D.
Grösse Dialogfenster der InputBox Dialogfeld unterdrücken
Dialog "permanently delete sheets" unterbinden Format-Dialog funktioniert nicht mehr
Dialog "Verknüpfung aktualisieren" Ordnerdialog und Dateidialog
Ordnerdialog und dateidialog Ordnerdialog und Dateidialog
Filedialog Herber/Beispiele/Dialoge/Checkbox/137601
Bilder bei Click im Dialogfeld Suchdialog über VBA aufrufen
mit Wert aus Combobox Dialog öffnen Diagramm als Grafik mit Speicherdialog exportieren
Dialogfenster zum kopieren FileDialog-Objekt unter O2k
Abrage von Dialogfeldargumenten Datei Auswählen Dialog (Application.FileDialog)
xlDialogOpen/FindFile ohne Open Dialogfeld zum pdf öffnen
refedit.dll wird nicht gefunden Dialogfeld schließen, wenn Benutzer nichts eingibt
Problem mit ApplicationDialogs Das Dialogfeld "sortieren" aufrufen?
Keine Dialogbox bei SaveAs Dialogbox
Bei xlDialogSaveAs Dateinamen vorgeben Blattauswahldialog...
speichern unter dialogbox problem Speicherndialog bei BeforeClose unterbinden
Dialogfenster "Aktualisierung der Verknüpfungen&qu speichern unter dialogbox einbinden
Dialogfeld Beschriftungsbereiche Problem nach 'application.dialogs(xldialogsendmail
dialog aktualisieren xlDialogSendMail - Passwort übergeben