Re: ComboBox verschachteln
19.02.2003 11:22:10
Steffen D
Hi
erstelle eine UserForm mit drei Comboboxen und zwei commandbuttons und kopiere dann diesen Code in den Codebereich der userform, (lass die Namen der Steuerelemente so wie die sind)
Gruß
Steffen D
Private Sub ComboBox1_Change()
ComboBox2.Clear
ComboBox3.Clear
Select Case ComboBox1.Text
Case "Auto"
ComboBox2.AddItem "Karroserie"
ComboBox2.AddItem "Elektronik"
Case "Computer"
ComboBox2.AddItem "Hardware"
ComboBox2.AddItem "Software"
Case "Mensch"
ComboBox2.AddItem "Sinnesorgane"
ComboBox2.AddItem "Sonstiges"
End Select
End Sub
Private Sub ComboBox2_Change()
ComboBox3.Clear
Select Case ComboBox2.Text
Case "Karroserie"
ComboBox3.AddItem "Tür"
ComboBox3.AddItem "Dach"
ComboBox3.AddItem "Motorhaube"
ComboBox3.AddItem "Kofferraumdeckel"
Case "Elektronik"
ComboBox3.AddItem "Motorelektronik"
ComboBox3.AddItem "Car-Hifi"
ComboBox3.AddItem "Alarmanlage"
Case "Hardware"
ComboBox3.AddItem "Festplatte"
ComboBox3.AddItem "Mainboard"
ComboBox3.AddItem "Gehäuse"
Case "Software"
ComboBox3.AddItem "Microsoft"
ComboBox3.AddItem "Betriebssyteme"
ComboBox3.AddItem "CAD-Software"
Case "Sinnesorgane"
ComboBox3.AddItem "Haut"
ComboBox3.AddItem "Augen"
ComboBox3.AddItem "Ohren"
ComboBox3.AddItem "Zunge"
ComboBox3.AddItem "Nase"
Case "Sonstiges"
ComboBox3.AddItem "Füße"
ComboBox3.AddItem "Hände"
ComboBox3.AddItem "Kopf"
End Select
End Sub
Private Sub CommandButton1_Click()
MsgBox "Sie haben gewählt: " & vbNewLine & ComboBox1.Text & vbNewLine & _
ComboBox2.Text & vbNewLine & ComboBox3.Text
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Auto"
ComboBox1.AddItem "Computer"
ComboBox1.AddItem "Mensch"
End Sub