Probleme mit visible

Guten Tag zusammen
In einer Userform habe ich diverse Comboboxen und Textboxen. Wenn ich nun in der Combobox2 einen Wert auswäle soll es mir bei zwei Werten zusätlich eTextboxen einblenend.
Hab mal folgenden Code geschrieben


Private Sub ComboBox2_Change()
TextBox3.Visible = ComboBox2.Value = "Küche"
TextBox4.Visible = ComboBox2.Value = "Küche"
Label5.Visible = ComboBox2.Value = "Küche"
Label6.Visible = ComboBox2.Value = "Küche"
Label12.Visible = ComboBox2.Value = "Küche"
End Sub


Private Sub TextBox2_Change()
TextBox3.Visible = ComboBox2.Value = "Bad"
TextBox4.Visible = ComboBox2.Value = "Bad"
Label5.Visible = ComboBox2.Value = "Bad"
Label6.Visible = ComboBox2.Value = "Bad"
Label12.Visible = ComboBox2.Value = "Bad"
End Sub

Soweit geht der Code aber nur mit "Küche", wenn ich "Bad" anklicke dann geht es erst wenn ich in der TextBox2 das Datum eingebe. Kann ich den Code so verändern das es mir die Textboxen auch für "Bad" sofort einblendet wenn ich in der ComboBox 2 dies auswähle?
Besten Dank für euere Hilfe
Gruss
Roger

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ComboBox2_Change() Select Case ComboBox2.Value Case "Küche", "Bad" TextBox3.Visible = ComboBox2.Value = "Küche" TextBox4.Visible = ComboBox2.Value = "Küche" Label5.Visible = ComboBox2.Value = "Küche" Label6.Visible = ComboBox2.Value = "Küche" Label12.Visible = ComboBox2.Value = "Küche" Case Else 'do nothing End Select End Sub

Private Sub ComboBox2_Change() Select Case ComboBox2.Value Case "Küche", "Bad" TextBox3.Visible = True TextBox4.Visible = True Label5.Visible = True Label6.Visible = True Label12.Visible = True Case Else 'do nothing End Select End Sub

Private Sub ComboBox2_Change() Select Case ComboBox2.Value Case "Küche", "Bad" TextBox3.Visible = True Case Else TextBox3.Visible = True End Select TextBox4.Visible = TextBox3.Visible Label5.Visible = TextBox3.Visible Label6.Visible = TextBox3.Visible Label12.Visible = TextBox3.Visible End Sub

Private Sub ComboBox2_Change() Select Case ComboBox2.Value Case "Küche", "Bad" TextBox3.Visible = True Case Else TextBox3.Visible = False End Select TextBox4.Visible = TextBox3.Visible Label5.Visible = TextBox3.Visible Label6.Visible = TextBox3.Visible Label12.Visible = TextBox3.Visible End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Probleme mit visible

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread