Hallo Alexander!
Da du einen Code angibst gehe ich davon aus, dass du mit den Steuerlementen arbeitest!? Da ist ein weiterer Nachteil, dass du jedem Button einen eigenen Code zuweisen must. Bei dir hat praktisch nur de erste Button einen Code. DIe anderen machen nichts. Du müsstest bei jedem Button den folgenden Code eintragen
Private Sub OptionButton1_Click()
If OptionButton1.Value And OptionButton2.Value And OptionButton3.Value Then
TextBox1.Value = "Antwort 1"
Else
TextBox1.Value = "Antwort 2 "
End If
End Sub
Am besten einfach 6 mal kopieren und einfügen und dann in der Überschrift nur die Nummer ändern. Ich gehe mal davon aus, dass die Ja BUttons die Nummer 1 bis 3 und die Nein die 4 bis 6 haben. Das mit dem True brauchst du nicht (es wird ja wahr oder falsch vom Value angegeben) oder halt hinter jeden Wert schreiben.
Eine Frage noch. Hast du die Buttons entsprechende gruppiert? Ansonsten sind die so eingstellt, dass die sich gegenseitig aufheben. Wenn noch nicht geschehen, dann bei 1 und 4 unter Eigenschaften bei groupname das selbe eingeben. Bei 2 und 5 was anderes und bei 3 und 6 nochmal was anderes.
Das sollte dann eigentlich gehen.
Gruß
|