Microsoft Excel

Herbers Excel/VBA-Archiv

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 OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Bei Button_Click ein neues UserForm Anzeigen.

Betrifft: Bei Button_Click ein neues UserForm Anzeigen. von: Alex K.
Geschrieben am: 14.11.2012 17:52: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.

Hir mal ein Teil des Codes:

Privata Sub Einfuegen_Initialize()

cborbt2.AddItem "Bitte Hersteller wählen"
cborbt2.AddItem "KUKA"
cborbt2.AddItem "ABB"
cborbt2.ListIndex = 0
        
cmbrbt2.Style = fmStyleDropDownList
cmbLF2.Style = fmStyleDropDownList

End Sub

  

Betrifft: AW: Bei Button_Click ein neues UserForm Anzeigen. von: Alex K.
Geschrieben am: 14.11.2012 17:53:44

..... Muss ich dort mit Load arbeiten oder gibt es ne andere Möglichkeit???
MfG
Alex K.


  

Betrifft: AW: Bei Button_Click ein neues UserForm Anzeigen. von: Hajo_Zi
Geschrieben am: 14.11.2012 18:04:16

Hallo Alex,

den Code hast Du schon in der neuen UserForm?

GrußformelHomepage


  

Betrifft: AW: Bei Button_Click ein neues UserForm Anzeigen. von: Alex K.
Geschrieben am: 14.11.2012 21:38:02

ja das ist alles erledigt


  

Betrifft: AW: Bei Button_Click ein neues UserForm Anzeigen. von: Alex K.
Geschrieben am: 14.11.2012 21:47:28

das wäre der code dazu vlt is dadrinnen der wurm

Private Sub Einfuegen_Initialize()

cborbt2.AddItem "Bitte Hersteller wählen"
cborbt2.AddItem "KUKA"
cborbt2.AddItem "ABB"
cborbt2.ListIndex = 0
        
cmbrbt2.Style = fmStyleDropDownList
cmbLF2.Style = fmStyleDropDownList

End Sub

Sub cborbt2_Change()

        
       cborbt2.Value = ""
       Select Case cborbt2
           Case "KUKA"
                    cboLF2.AddItem "Bitte Lastfall wählen"
                    cboLF2.AddItem "33%/33%"
                    cboLF2.AddItem "33%/66%"
                    cboLF2.AddItem "33%/100%"
                    cboLF2.AddItem "66%/33%"
                    cboLF2.AddItem "66%/66%"
                    cboLF2.AddItem "66%/100%"
               cboLF2.AddItem "100%/33%"
               cboLF2.AddItem "100%/66%"
               cboLF2.AddItem "100%/100%"
               cboLF2.ListIndex = 0
           Case "ABB"
               lblLAF.Caption = "Nur STOP1 verfügbar"
               cmbLF2.AddItem "STOP1"
               cmbLF2.ListIndex = 0
       End Select
      
       
End Sub

 Sub cmbEinf_Click()
Select Case cborbt2
    Case "Kuka"
        Worksheets("KUKA").Activate
        Rows.Insert ("2:21")
        Range("B21").Value = "txtbr"
        Range("C21").Value = "txta2"
        Range("d21").Value = "txta3"
        Range("e21").Value = "txta3"
    Case "ABB"
        Worksheets("ABB").Activate
        Rows.Insert ("2:19")
        Range("B19").Value = "txtbr"
        Range("C19").Value = "txta2"
        Range("d19").Value = "txta3"
        Range("e19").Value = "txta3"
End Select

Select Case cboLF2
    Case "33%/33%"
        Worksheets("KUKA").Activate
        Rows.Insert ("2:21")
        Range("f21").Value = "txtlfa1"
        Range("g21").Value = "txtlfa2"
        Range("h21").Value = "txtlfa3"
       
    Case "33%/66%"
        Worksheets("KUKA").Activate
        Rows.Insert ("2:21")
        Range("i21").Value = "txtlfa1"
        Range("j21").Value = "txtlfa2"
        txtlaf3.Locked = True
        txtlaf3.BackColour = vbGrey
        
    Case "33%/100%"
        Worksheets("KUKA").Activate
        Rows.Insert ("2:21")
        Range("l21").Value = "txtlfa1"
        Range("m21").Value = "txtlfa2"
        txtlaf3.Locked = True
        txtlaf3.BackColour = vbGrey
    Case "66%/33%"
        Worksheets("KUKA").Activate
        Rows.Insert ("2:21")
        Range("o21").Value = "txtlfa1"
        Range("p21").Value = "txtlfa2"
        txtlaf3.Locked = True
        txtlaf3.BackColour = vbGrey
    Case "66%/66%"
        Worksheets("KUKA").Activate
        Rows.Insert ("2:21")
        Range("r21").Value = "txtlfa1"
        Range("s21").Value = "txtlfa2"
        txtlaf3.Locked = True
        txtlaf3.BackColour = vbGrey
    Case "66%/100%"
        Worksheets("KUKA").Activate
        Rows.Insert ("2:21")
        Range("u21").Value = "txtlfa1"
        Range("v21").Value = "txtlfa2"
        txtlaf3.Locked = True
        txtlaf3.BackColour = vbGrey
    Case "100%/33%"
        Worksheets("KUKA").Activate
        Rows.Insert ("2:21")
        Range("x21").Value = "txtlfa1"
        Range("y21").Value = "txtlfa2"
        Range("z21").Value = "txtlfa3"
    Case "100%/66%"
        Worksheets("KUKA").Activate
        Rows.Insert ("2:21")
        Range("aa21").Value = "txtlfa1"
        Range("ab21").Value = "txtlfa2"
        Range("ac21").Value = "txtlfa3"
    Case "100%/100%"
        Worksheets("KUKA").Activate
        Rows.Insert ("2:21")
        Range("ad21").Value = "txtlfa1"
        Range("ae21").Value = "txtlfa2"
        Range("af21").Value = "txtlfa3"
End Select
End Sub

 
 Sub cmbend2_Click()
Unload einfuegen
End Sub


MfG Alex


  

Betrifft: AW: Bei Button_Click ein neues UserForm Anzeigen. von: Hajo_Zi
Geschrieben am: 15.11.2012 16:10:56

Hallo Alex,

Ich baue keine Datei nach, die Zeit hat schon jemand investiert.

Gruß Hajo


 

Beiträge aus den Excel-Beispielen zum Thema "Bei Button_Click ein neues UserForm Anzeigen."