Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Userform 2 durch Buttonklick auf Userform 1 öffnen

Betrifft: Userform 2 durch Buttonklick auf Userform 1 öffnen von: Alex K.
Geschrieben am: 16.11.2012 12:12:31

Ich nöchte auf einen Comandbutton klicken und dadurch ein zusätzliches Userform öffnen.

Mit (Name).show kommt das Userform auch Nur werden keine Items in die Dropdown eingefügt.

Der Code ist auch Hinterlegt (dirrect im UserForm 2) ich habe hinter dem Button folgendes hinterlegt : Load (Name) ;(Name).Show

MfG Alex K.

  

Betrifft: AW: Userform 2 durch Buttonklick auf Userform 1 öffnen von: ChrisL
Geschrieben am: 16.11.2012 13:50:33

Hi Alex

Dies müsste eigentlich problemlos funktionieren. Wie füllst du denn die Werte in die Dropdown (nehme an Combobox)?

cu
Chris


  

Betrifft: AW: Userform 2 durch Buttonklick auf Userform 1 öffnen von: Alex K.
Geschrieben am: 16.11.2012 14:15:58

Ich füge die werte mit

cbohrst.AddItem="####"
und

cborbt2.Style = fmStyleDropDownList
ein.

Mfg Alex K.

Ps bei meinem ersten Userform hats auch geklappt nur bei diesem net^^


  

Betrifft: AW: Userform 2 durch Buttonklick auf Userform 1 öffnen von: ChrisL
Geschrieben am: 16.11.2012 14:27:15

Hi Alex

Vielleicht musst du mal ein Beispiel hochladen. Folgender Test funktioniert:

'Userform 1

Private Sub CommandButton1_Click()
UserForm2.Show
End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem "####"
ComboBox1.Style = fmStyleDropDownList
End Sub

' Userform 2
Private Sub UserForm_Initialize()
ComboBox1.AddItem "####"
ComboBox1.Style = fmStyleDropDownList
End Sub

cu
Chris


  

Betrifft: AW: Userform 2 durch Buttonklick auf Userform 1 öffnen von: Alex K.
Geschrieben am: 16.11.2012 14:36:59


Hier die Codes

Private Sub cmbok_Click()
If txtcode = "123456" Then Klappe

If Not txtcode = "123456" Then Unload code


End Sub

Private Sub cmbzurueck_Click()
Unload code

End Sub

Das sub für Klappe
Sub Klappe()

Unload code
'Hersteller einfügen
    Load einfuegen
    einfuegen.Show

Und zum schluss der code im neuen userform
Private Sub einfuegen_Initialize()
        cmbrb2t.AddItem "Bitte Hersteller wählen"
        cborbt2.AddItem "KUKA"
        cborbt2.AddItem "ABB"
        cborbt2.ListIndex = 0
        
    'desing von Hersteller- und  Lastfall-fenster werden bestimmt
       cborbt2.Style = fmStyleDropDownList
       cboLF2.Style = fmStyleDropDownList
End Sub
MfG Alex


  

Betrifft: AW: Userform 2 durch Buttonklick auf Userform 1 öffnen von: ChrisL
Geschrieben am: 16.11.2012 15:02:27

Hi Alex

UserForm_Initialize
anstelle
einfuegen_Initialize

cu
Chris


  

Betrifft: AW: Userform 2 durch Buttonklick auf Userform 1 öffnen von: Alex K.
Geschrieben am: 16.11.2012 15:10:09

dann bekomme ich Im sub Klappe die Meldung "Objekt erforderlich" auch nach einer abänderung auf "UserForm.Show" und "Load UserForm"

MfG Alex



  

Betrifft: AW: Userform 2 durch Buttonklick auf Userform 1 öffnen von: ChrisL
Geschrieben am: 16.11.2012 18:02:40

Hi Alex

Ich habe jetzt leider kein VBA mehr zur hand, aber ich hab es vorher getestet. Bei .Show musst du allerdings weiterhin den Namen vom Userform ansprechen, aber bei Initialize nicht.

Fragt sich ober der Code an der richtigen Stelle ist (Modul vom Userform oder in einem Standardmodul). Am einfachsten wäre es wirklich, wenn du eine kleine Beispieldatei hochladen würdest.

cu
Chris


  

Betrifft: AW: Userform 2 durch Buttonklick von: Hajo_Zi
Geschrieben am: 16.11.2012 18:04:45

Hallo Chris,

dem stimme ich zu.

GrußformelHomepage


 

Beiträge aus den Excel-Beispielen zum Thema "Userform 2 durch Buttonklick auf Userform 1 öffnen"