optionsfelder und Kontrollkästchen
25.05.2004 10:02:15
ck
hier die programmierung:
einfach ein neues userform üffnen in vba und dann einfügen des codes.......
Private Sub Artikelnr_DropButtonClick()
Me.Artikelnr.AddItem "870253-0001 DKN HELLA MODUL DUMMY ORION"
Me.Artikelnr.AddItem "870253-0002 DKN HELLA MODUL DUMMY KIESEL"
Me.Artikelnr.AddItem "870253-0003 DKN HELLA MODUL DUMMY ETNA"
Me.Artikelnr.AddItem "870253-0004 DKN HELLA MODUL DUMMY ALPACA"
Me.Artikelnr.AddItem "870253-3011 DKN HELLA MODUL AS ORION"
Me.Artikelnr.AddItem "870253-3012 DKN HELLA MODUL AS KIESEL"
Me.Artikelnr.AddItem "870253-3013 DKN HELLA MODUL AS ETNA"
Me.Artikelnr.AddItem "870253-3014 DKN HELLA MODUL AS ALPACA"
Me.Artikelnr.AddItem "870253-3021 DKN HELLA MODUL AS/IRS ORION"
Me.Artikelnr.AddItem "870253-3022 DKN HELLA MODUL AS/IRS KIESEL"
Me.Artikelnr.AddItem "870253-3023 DKN HELLA MODUL AS/IRS ETNA"
Me.Artikelnr.AddItem "870253-3024 DKN HELLA MODUL AS/IRS ALPACA"
Me.Artikelnr.AddItem "870253-3031 DKN HELLA MODUL AS/SOS ORION"
Me.Artikelnr.AddItem "870253-3032 DKN HELLA MODUL AS/SOS KIESEL"
Me.Artikelnr.AddItem "870253-3033 DKN HELLA MODUL AS/SOS ETNA"
Me.Artikelnr.AddItem "870253-3034 DKN HELLA MODUL AS/SOS ALPACA"
Me.Artikelnr.AddItem "870253-3051 DKN HELLA MODUL KOMPL. ORION"
Me.Artikelnr.AddItem "870253-3052 DKN HELLA MODUL KOMPL. KIESEL"
Me.Artikelnr.AddItem "870253-3053 DKN HELLA MODUL KOMPL. ETNA"
Me.Artikelnr.AddItem "870253-3054 DKN HELLA MODUL KOMPL. ALPACA"
Me.Artikelnr.AddItem "870253-0100 ITT SCHALTERMODUL BR240"
Me.Artikelnr.AddItem "870253-0200 ITT SCHALTERMODUL AS SOS BR240"
Me.Artikelnr.AddItem "870253-0250 ITT SCHALTERMODUL AS BR240"
Me.Artikelnr.AddItem "870253-0260 ITT SCHALT. AS SOS 1K BR240"
Me.Artikelnr.AddItem "870253-1000 ZB SCHALTER NOTRUF 1KOHM VERK"
Me.Artikelnr.AddItem "870073-0010 Tiptronic"
Me.Artikelnr.AddItem "870073-0013 Tiptronic"
Me.Artikelnr.AddItem "870273-0000 Tiptronic"
Me.Artikelnr.AddItem "870273-0001 Tiptronic"
Me.Artikelnr.AddItem "870273-0010 Tiptronic"
Me.Artikelnr.ListIndex = "0"
End Sub
Private Sub Hinzufuegen_Click()
End Sub
Private Sub hliessen_Click()
Unload Me
End Sub