Combobox Ein- und Ausblenden
15.11.2016 14:14:16
Karo
habe folgende Frage:
ich habe eine combobox (Activex-Steuerelemt) mit der ich eine Auswahl treffen kann. Je nachdem _ welche Auswahl getroffen worden ist werden Zellen mit einer neuen Combobox ein- bzw. ausgeblendet. Das Makro ist wie folgt geschrieben:
Sub StartAbfrageAuswahl()
If Tabelle4.ComboBox1.Value = "Apfel" Then
Rows("9:14").Hidden = True
Rows("6:8").Hidden = False
Tabelle4.ComboBox2.Visible = True
Tabelle4.ComboBox3.Visible = False
Tabelle4.ComboBox4.Visible = False
ElseIf Tabelle4.ComboBox1.Value = "Birne" Then
Rows("6:8").Hidden = True
Rows("12:14").Hidden = True
Rows("9:11").Hidden = False
Tabelle4.ComboBox2.Visible = False
Tabelle4.ComboBox3.Visible = True
Tabelle4.ComboBox4.Visible = False
ElseIf Tabelle4.ComboBox1.Value = "Eier" Then
Rows("6:11").Hidden = True
Rows("12:15").Hidden = False
Tabelle4.ComboBox2.Visible = False
Tabelle4.ComboBox3.Visible = False
Tabelle4.ComboBox4.Visible = True
End If
End Sub
Meine Frage:
Soweit funktioniert das Makro. Daher Zeilen und Comoboxen werden aus- bzw. eingeblendet. Allerdings habe ich vor noch mehr Comoboxen mit Auswahlmöglichkeiten zu erstellen. Daher meine Frage ob man das Makro vereinfachen (Auf Tabelle4.ComboBox2.Visible = False usw. verzichten) kann? Ich habe hier im Forum gelesen, dass man über die Eigenschaft des Steuerelements "Zelle unabhängig" die Comoboxen auch ausblenden kann. Somit würde sich der Befehl Tabelle4.ComboBox2.Visible = False erübrigen. Allerdings funktioniert das bei mir nicht. Was mache ich falsch?
Ein ganz großer Dank im Voraus!!!
Viele Grüße
Karolina
Anzeige