für mehrere controls eine prozedur
22.01.2023 15:57:55
boris
Ich habe in einer Userform in einem Frame mehrere Optionbutton die praktisch das gleiche tun, bis auf ein zwei Kleinigkeiten die man als Variable übergeben könnte. Jetzt find ich es überhaupt nicht sexy, wenn da n-mal die fast gleiche Porzeur steht. Gibt es keine Möglichkeit eine Prozedur zu verwenden um ein Click auf irgendeinen dieses Optionbutton gibt an die Prozedur nur die Nummer es Button weiter?
Private Sub OptionButton10_Click() die '10' würde ich gerne als Variable übergeben
TextBoxenSchichtModellEnabledTrue
Worksheets("einloggen").Range("D10").Value = "10"
CtrlNrVon = 1: CtrlNrBis = 12: SetControlls = "TextBox"
Steps = Array(1, 1, 2, 1, 1, 2, 1, 1, 1)
i = 2
s = 0
Do Until i > 12
Me.Controls(SetControlls & i).Enabled = False
Debug.Print i
i = i + Steps(s)
s = s + 1
Loop
End Sub
Viele Grüss BorisAnzeige