Steuerelemente verbergen bei versch. ComboBox Erg.
14.12.2013 14:14:02
Michel
Bei den ersten zwei Ergebnissen soll sich nichts verändern. Jedoch bei den 3 weiteren Alternativen sollen jeweils bestimmte Steuerelemente ausgeblendet werden:
Private Sub ComboBox4_Change()
ComboBox2.Visible = Not ComboBox4.Text = "Inzahlungnahme ohne Verkauf"
ComboBox3.Visible = Not ComboBox4.Text = "Inzahlungnahme ohne Verkauf"
ComboBox5.Visible = Not ComboBox4.Text = "Inzahlungnahme ohne Verkauf"
CommandButton2.Visible = Not ComboBox4.Text = "Inzahlungnahme ohne Verkauf"
CheckBox1.Visible = Not ComboBox4.Text = "Inzahlungnahme ohne Verkauf"
CheckBox2.Visible = Not ComboBox4.Text = "Inzahlungnahme ohne Verkauf"
CheckBox3.Visible = Not ComboBox4.Text = "Inzahlungnahme ohne Verkauf"
CheckBox4.Visible = Not ComboBox4.Text = "Inzahlungnahme ohne Verkauf"
CheckBox5.Visible = Not ComboBox4.Text = "Inzahlungnahme ohne Verkauf"
CheckBox6.Visible = Not ComboBox4.Text = "Inzahlungnahme ohne Verkauf"
ComboBox2.Visible = Not ComboBox4.Text = "Abschlagszahlung bei Nichtabnahme"
ComboBox3.Visible = Not ComboBox4.Text = "Abschlagszahlung bei Nichtabnahme"
ComboBox5.Visible = Not ComboBox4.Text = "Abschlagszahlung bei Nichtabnahme"
CommandButton2.Visible = Not ComboBox4.Text = "Abschlagszahlung bei Nichtabnahme"
CheckBox1.Visible = Not ComboBox4.Text = "Abschlagszahlung bei Nichtabnahme"
CheckBox2.Visible = Not ComboBox4.Text = "Abschlagszahlung bei Nichtabnahme"
CheckBox3.Visible = Not ComboBox4.Text = "Abschlagszahlung bei Nichtabnahme"
CheckBox4.Visible = Not ComboBox4.Text = "Abschlagszahlung bei Nichtabnahme"
CheckBox5.Visible = Not ComboBox4.Text = "Abschlagszahlung bei Nichtabnahme"
CheckBox6.Visible = Not ComboBox4.Text = "Abschlagszahlung bei Nichtabnahme"
ComboBox2.Visible = Not ComboBox4.Text = "Anschlussfinanzierung"
ComboBox3.Visible = Not ComboBox4.Text = "Anschlussfinanzierung"
ComboBox5.Visible = Not ComboBox4.Text = "Anschlussfinanzierung"
CommandButton2.Visible = Not ComboBox4.Text = "Anschlussfinanzierung"
CheckBox5.Visible = Not ComboBox4.Text = "Anschlussfinanzierung"
End Sub
Leider funktioniert es so nicht. Es werden im Ich denke der Grund liegt für Euch Wissende auf der Hand. Aber ich VBA-Nix-Blicker weiß nicht woran es liegt.
Anzeige