OptionButton abfragen
25.06.2021 09:44:23
Thomas
ich habe ein Problem, bei dem ich nicht weiter komme.
Ich habe eine UserForm mit 20 OptionButtons (OP_SR1 - OP_SR20).
Hinter jedem OptionButton steht der selbe Code.
Jetzt meine Frage,
gibt es eine Möglichkeit, welcher OptionButtons angeklickt wurde und den Code aus OB_Init auszuführen, ohne den Code in jeden Einzelnen Button zu schreiben?
Ich hoffe, dass es da eine Möglichkeit gibt.
Private Sub OP_SR1_Click()
myZU = "SR": OB_Init
End Sub
Private Sub OP_SR2_Click()
myZU = "SR": OB_Init
End Sub
Private Sub OP_SR3_Click()
myZU = "SR": OB_Init
End Sub
Private Sub OP_SR4_Click()
myZU = "SR": OB_Init
End Sub
...
usw.
________________________________________________
Sub OB_Init()
Dim Z As Integer
With Haupt 'UserForm
' .FR_SR Name des Frames der OptionButtons
' OP_SR & Z ist Name der OptionButton
For Z = 1 To 20
If .FR_SR("Op_SR" & Z) = True Then
myFRN = .FR_SR("Op_SR" & Z).Caption
myZU = "_SR"
Exit For
End If
Next Z
End With
OptionButton 'Führt nächsten Code aus
End Sub
Anzeige