Code irre bei Comboboxenauswahl!
04.08.2016 18:50:15
ViGo
Ich hab ein Problem mit meinem Code und zwar macht er nicht was er soll. Vielleicht habt ihr ja eine Idee woran das liegt...
Ich möchte umsetzen, dass wenn in Userform1 in Combobox1=klein und Combobox2=nein ausgewählt wird, in Userform2 die Auswahl für Combobox1 und Combobox 2 schon vorgegeben und auch nicht mehr veränderbar ist. Nur bei dieser Kombination!
Allerdings sieht es aktuell so aus:
Userform1
combobox1=klein, combobox2=nein --> Combobox1 in Userform 2 leer und auswählbar
Userform1
combobox1=klein, combobox2=ja --> Userform 2 Combobox1=ja und auswählbar
Die anderen beiden Kombination funktionieren wie sie es sollen.
Private Sub CommanButton_Click()
'Wenn beide Angaben oder eine Angabe mit passendem Inhalt übereinstimmt
If Me.ComboBox1.Value = "groß" And Me.ComboBox2.Value = "ja" Then
Unload Me
UserForm2.Show
ElseIf Me.ComboBox1.Value = "groß" And Me.ComboBox2.Value = "nein" Then
Unload Me
UserForm2.Show
ElseIf Me.ComboBox1.Value = "klein" And Me.ComboBox2.Value = "ja" Then
Unload Me
UserForm2.Show
ElseIf Me.ComboBox1.Value = "klein" And Me.ComboBox2.Value = "nein" Then
Unload Me
UserForm2.Show
UserForm2.ComboBox1.Value = "ja"
UserForm2.ComboBox2.Value = "1"
UserForm2.ComboBox1.Enabled = True
UserForm2.ComboBox2.Enabled = True
ElseIf Me.ComboBox1.Value = "" Xor Me.ComboBox2.Value = "" Then
MsgBox "Die Felder dürfen nicht leer sein. Bitte machen Sie Angaben!"
ElseIf Me.ComboBox1.Value = "" And Me.ComboBox2.Value = "" Then
MsgBox "Die Felder dürfen nicht leer sein. Bitte machen Sie Angaben!"
End If
End Sub
Achso, noch etwas: dieser Code wird ausgeführt, wenn man auf den Weiter- Button klickt!Viele Grüße, ViGo