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 SubViele Grüss Boris