OptionButton sinnvoll ansprechen
24.03.2021 09:11:52
Hans-Jürgen
ich bin dabei, einen "Spaghetti-Code" etwas aufzräumen und für meinen Nachfolger lesbarer zu machen. Der Code kommt teilweise aus einer Zeit, in der ich noch weniger Ahnung hatte als jetzt..... Konkret:
Ich habe eine UserForm mit (unter anderem) fünf OptionButtons, die heißen OptionButton0 bis OptionButton4. Der Anwender soll über diese Buttons auswählen, welche Gruppe er sehen will. Allerdings möchte ich bei der Initialisierung bereits die Gruppe vorbelegen, der der Anwender zugeordnet ist. Dies findet sich in der Variablen glngAnwenderGruppe.
Dieser Code hier funktioniert:
' Select Case glngAnwenderGruppe
' Case 0:
' OptionButton0.Value = True
' Case 1:
' OptionButton1.Value = True
' Case 2:
' OptionButton2.Value = True
' Case 3:
' OptionButton3.Value = True
' Case 4:
' OptionButton4.Value = True
' End Select
ActiveSheet.Shapes("OptionButton" & glngAnwenderGruppe).ControlFormat.Value = True
Vielen Dank und viele Grüße
Hans-Jürgen
Mit der Auswahl wird die gewünschte Gruppe ausgewählt (0 ist die Leitungsebene). Die