HERBERS Excel-Forum - die Beispiele

Thema: In Abhängigkeit zur RefEdit-Auswahl UserForm aufrufen

Home

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?

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

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