Click Abfrage in Loop
31.01.2019 14:58:22
Tim
ich habe ein UserForm zusammengebastelt, das ich mit vielen OptionButtons versehen habe. Wenn das UserForm geöffnet wird, soll der Benutzer die OptionButtons je einer Gruppe drücken und darauf hin sollen zwei Texteingabefelder entweder erscheinen oder eben verschwinden.
Da ich sehr viele OptionButtons habe, würde ich dies gerne in einer Schleife anweisen. Wie funktioniert das?
Ich hab es zuvor ganz einfach folgendes gemacht:
Sub OptionButton1_click()
TextBox1.Visible = False
TextBox2.Visible = False
End Sub
Sub OptionButton2_click()
TextBox1.Visible = True
TextBox2.Visible = True
End Sub
usw....
Ich würde jetzt gerne prinzipiell wissen, wie ich den OptionButton(i)_click abfragen kann, also den i-ten OptionButton.
also sowas wie:
Sub Test()
for i= 1 to 30
Case Select OptionButton(i)_click 'Problem 1
case is = true
TextBox(j).Visible = False 'Problem 2
TextBox(j+1).Visible = False
case is = false
TextBox(j).Visible = True
TextBox(j+1).Visible = True
End Select
next
End Sub
Anzeige