Textboxen ausblenden ausser Labels
16.10.2018 17:31:51
Dieter(Drummer)
auf einer Userform1 sind 7 Textboxen und 7 Labels.
Beim öffnen der Userform1 werden alle Controls (Textboxen und Labels) ausgeblendet.
Es sollen aber alle Labels nicht ausgeblendet werden. Wie muss der Code dann lauten?
Gruß, Dieter(Drummer)
Hier der Code von Rudi:
'Herber: von: Rudi Maintaire 27.07.2011
'Alle Textboxen ausblenden
Sub UF1_Controls_aus()
Dim ctl As Control
For Each ctl In UserForm1.Controls
ctl.Visible = False
Next
UserForm1.TextBox1.Visible = True 'Textbox1 einblenden
UserForm1.Label1.Visible = True
End Sub