Thema Datum  Von Nutzer Rating
Antwort
Rot Excel-VBA: Problem mit Option Buttons
 19.02.2015 11:35:30 Stefan
NotSolved

Ansicht des Beitrags:
Von:
Stefan		 Datum:
19.02.2015 11:35:30		 Views:
1228		 Rating:
     
Antwort:
  Ja
Thema:
Excel-VBA: Problem mit Option Buttons

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.
 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel-VBA: Problem mit Option Buttons
 19.02.2015 11:35:30 Stefan
NotSolved