Textbox1 wird durch Auswahl der Comobox eingeblendet.
Nun möchte ich , wenn Textbox1 eingeblendet wird auch Label1 eingeblendet wird.
Wie macht man das am besten?
Kann jemand helfen?
Gruß Steffen
Private Sub ComboBox1_Change()
Dim x As Long
x = CLng(ComboBox1.Value)
TextBox1.Visible = x >= 1
Label1.Visible = x >= 1
TextBox2.Visible = x >= 2
Label2.Visible = x >= 2
TextBox3.Visible = x >= 3
Label3.Visible = x >= 3
End Sub
Gruß WernerLabel1.Visible = Textbox1.Visible
If Label1.Visible Textbox1.Visible then Label1.Visible = Textbox1.Visible
Me.Label1.Visible = Len(Me.Textbox1) > 0