UserForm - Activate Textfield if OptionButton selected / deactivate when deselected

Hello i am looking for a solution to a problem i am having.

• I have TextFields in my document.
• Clicking on of those TextFields activates a certain UserForm correlated to this TextField.
• Those Userforms contain OptionButtons. (Only one can be active at the same time)
• Selecting on of those OptionButtons and clicking OK in the UserForm transfers the caption of this OptionButton to the TextField in the document.
• I want to provide the user with the opportunity to manually enter data into a TextField inside the UserForm, if the provided selections do not fit his needs.
• To activate this TextField, the user has to activate a certain OptionButton. Then a messagebox pops up and the user has to comply by clicking OK.
• After clicking OK, the TextField gets enabled and the user can input his data. After clicking OK, the data in the TextField gets transferred to the TextField in the document (just as with the selection of any other OptionButton).

My current Problem is:
• When the user has activated the TextField by clicking the necessary OptionButton, i want the Textfield to deactivate again if the user is selecting a different OptionButton. (Currently the TextField just stays activated).

Does anyone have an idea how i can implement that functionality into the UserForm?


Another thing is (no high priority):
• I am having a lot of different TextFields in my Document, each activating different UserForms with different amounts of OptionButtons and content.
• Implementing this new functionality would require me to edit each single UserForm, which is quite tedious.

I am wondering if one of you experts would know of a way to propably optimize or rewrite this whole process in a way to make it more uniform - So that it would not be required to edit each UserForm manually?

I have attached a test document to this post. So if someone could take a look at it, that would be awesome!

Attachment 25169


Greetings

Manuel

You could use the change event:

Code:

---

Private Sub OptionButton3_Change()
  If OptionButton3 Then
    If MsgBox("Achtung! Durch aktivieren dieser Schaltfläche wird die Eingaberestriktion aufgehoben - " & _
              "Der Benutzer ist für die korrekte Anwendung dieser Funktion verantwortlich - " & _
              "Diese Funktion sollte nur verwendet werden, wenn oben aufgeführte Auswahlmöglichkeiten nicht zutreffend sind.", _
              vbOKCancel, "Manuelle Benutzereingabe") = vbOK Then
      customInput.Enabled = True
      customInput.BackColor = RGB(255, 255, 255)
    End If
  Else
    customInput.Enabled = False
    customInput.BackColor = &H8000000C
    customInput.Text = ""
  End If
End Sub

---

Wonderful,
it is working! Simple solution =)

Thanks Greg