Mehrere Textfelder in Userform ausblenden
17.12.2002 14:04:49
Holger
diesmal habe ich zwei Userforms. In der einen befindet sich ein Kombinationsfeld (cbo_Zahlenreihe). Sobald ich dort den ersten Listeneintrag auswähle, soll die andere Userform aufgerufen werden, die drei Textfelder (txt_Feld1-3) enthält. Gleichzeitig sollen die Textfelder txt_Feld2 und txt_Feld3 unsichtbar sein. Mit zwei Programmzeilen gelingt mir das auch. Könnte ich das aber nicht zu einer zusammenfassen, z.B. mit Hilfer der Arry-Funktion? Mein Versuch (als Kommentar siehe unten) ist leider gescheitert. Schon mal Danke im voraus an die wahren Profis ;-)
Private Sub cbo_Zahlenreihe_Change()
If cbo_Zahlenreihe.ListIndex = 0 Then
frm_Textfelder.txt_Feld2.Visible = False
frm_Textfelder.txt_Feld3.Visible = False
'frm_Textfelder.Shapes.Range(Array("txt_Text2", "txt_Text3")).Visible = False
frm_Textfelder.Show
End If
End Sub