Bei Auswahl von Combobox Felder erscheinen
08.07.2016 16:10:17
Combobox
ich hab folgendes Problem: Ich habe eine Userform erstellt mit einem Textfeld und einer Combobox. Nun sollen in Abhängigkeit der Auswahl in der Combobox, neue Felder inklusive weiterer Comboboxen erscheinen (es soll eine Schritt-für- Schritt-Anleitung werden).
Mein Code sieht folgendermaßen aus:
Private Sub ComboBox1_Change()
With Worksheets("Start")
If UserForm2.ComboBox1.Value = "ja" Then
UserForm2.Label2.Visible = True
UserForm2.ComboBox2.Visible = True
Else: UserForm2.Label3.Visible = True
UserForm2.Label4.Visible = True
UserForm2.ComboBox3.Visible = True
Exit Sub
End If
If UserForm2.ComboBox2.Visible = True And UserForm2.ComboBox2.Value = "1" Then
UserForm2.Label3.Visible = True
UserForm2.Label4.Visible = True
UserForm2.ComboBox3.Visible = True
ElseIf UserForm2.ComboBox2.Visible = True And UserForm2.ComboBox2.Value = "2" Then
UserForm2.Label3.Visible = True
UserForm2.Label4.Visible = True
UserForm2.ComboBox3.Visible = True
UserForm2.Label5.Visible = True
UserForm2.ComboBox4.Visible = True
ElseIf UserForm2.ComboBox2.Visible = True And UserForm2.ComboBox2.Value = "3" Then
UserForm2.Label3.Visible = True
UserForm2.Label4.Visible = True
UserForm2.ComboBox3.Visible = True
UserForm2.Label5.Visible = True
UserForm2.ComboBox4.Visible = True
UserForm2.Label6.Visible = True
UserForm2.ComboBox5.Visible = True
End If
End With
End Sub
Zur Erläuterung: Die erste If-Schleife funktioniert. In Abhängigkeit, ob nun in der ersten Combobox ein "ja" oder ein "nein" ausgewählt worden ist, so werden dann die erforderlichen weiteren Felder aufgeklappt.
Die zweite If-Schleife funktioniert allerdings nicht. Ich möchte nun in Abhängigkeit von der Auswahl in Combobox2 (Auswahl 1,2,3), dass die nachfolgenden Felder und Comboxen erscheinen. Das passiert nicht. Es scheint so, als ob der Code nicht mitbekommt, dass eine Auswahl getroffen worden ist. Könnt ihr mir da weiterhelfen?
Vielen Dank und viele Grüße,
ViGo