Hallo zusammen,

ich könnte bitte mal Eure Hilfe gebrauchen.

Was will ich tun?
Ich habe ein UserForm gebastelt auf der eine Frage gestellt wird.

Die Frage soll beantwortet werden, in dem man auf einen von 3 OptionButtons drückt.
Diese sind:  ja, nein, nicht anwendbar
Dass die OptionsButtons sich gegenseitig ausschließen habe ich selbst hinbekommen.

Drückt man nein, kommen weitere Fragen, quasi "warum nein".
Hierbei handelt es sich auch wiederum um OptionButtons. Diese waren vorher ausgeblendet und erscheinen nur, wenn Nein angeklickt wird.
z.B.
- "keine Lust"
- "kann ich nicht"
- "zu anstrengend"
etc.
Ich habe hierfür Visible, Value und Enabled auf "FALSE" gesetzt

Problem
Wenn ich nun "Nein" anklicke, kommen alle bisher ausgeblendeten Antwortmöglichkeiten und ich kann eine oder sogar mehrere auswählen (das passt).
Drücke ich jetzt aber wieder "Ja" oder "nicht anwendbar" - weil ich z.B. finde, es passt jetzt doch, dann bleiben die OptionButtons die ich zuvor angeklickt habe, im Hintergrund aktiv.
 

Was ich gerne hätte
Ich hätte gerne, dass alle Eingaben, die ich bei den OptionButtons unter "nein" gemacht habe, gelöscht werden, wenn ich "ja" oder "nicht anwendbar" anklicke.

Kann mir bitte jemand sagen, was ich hierfür tun muss?

Anbei mein Code... vermutlich habe ich das viel zu umständlich gemacht - ich weiß es aber leider nicht besser...
 

Agenda:
MaskeFK = Meine UserForm
HF1 = Hauptfrage 1 (quasi die Frage)
HF1 ja = Antwort ja
HF1 nein = Antwort nein

UF1a = 1. Unterfrage die erscheint, wenn HF1nein geklickt wurde, quasi "keine Lust".
UF1b = 2. Unterfrage die erscheint, wenn HF1nein geklickt wurde, quasi "kann ich nicht"
etc.
 

Private Sub HF1ja_Click()
    If HF1ja.Value = True Then
        HF1nein.Value = False
        'HF1na.Value = False
        MaskeFK.UF1a.Visible = False
        MaskeFK.UF1b.Visible = False
        MaskeFK.UF1c.Visible = False
        MaskeFK.UF1d.Visible = False
        MaskeFK.UF1e.Visible = False
        MaskeFK.UF1f.Visible = False
        MaskeFK.UF1g.Visible = False
        
    End If
End Sub

Private Sub HF1nein_Click()
    If HF1nein.Value = True Then
        HF1ja.Value = False
        'HF1na.Value = False
        MaskeFK.UF1a.Visible = True
        MaskeFK.UF1a.Enabled = True
        MaskeFK.UF1b.Visible = True
        MaskeFK.UF1b.Enabled = True
        MaskeFK.UF1c.Visible = True
        MaskeFK.UF1c.Enabled = True
        MaskeFK.UF1d.Visible = True
        MaskeFK.UF1d.Enabled = True
        MaskeFK.UF1e.Visible = True
        MaskeFK.UF1e.Enabled = True
        MaskeFK.UF1f.Visible = True
        MaskeFK.UF1f.Enabled = True
        MaskeFK.UF1g.Visible = True
        MaskeFK.UF1g.Enabled = True
    End If
End Sub

Danke und LG

Stefan