|
Hallo Ralf,
ersteinmal danke für deine Antwort!
Der Else-Zweig würde alleinstehend funktionieren. Da du gleich darauf tippst, dass der Fehler bei der Bedingung liegt, denke ich, dass syntaxtechnisch soweit alles korrekt ist, das freut mich schoneinmal ungemein, denn ich war mir nicht sicher, ob UserForm1.CommandButton2.Enabled = True auch wirklich die korrekte Schreibweise ist um auf den Status des Buttons zu verweisen.
Mir fällt aber gerade auf, dass ich vergessen habe zu erwähnen, was der CommandButton2 denn überhaupt macht: Er schließt in jeder UserForm (1 -3) die UserForm und setzt den zaehler auf 0, sodass nur die InputBox "Wollen Sie den Test neu starten" kommt.
Was meinst du denn mit "einer der Buttons ist immer enabled"? Die Userform selbst hat 2 Buttons: Button1 der "WEITER"-Button und Button2 der "ABBRECHEN"-Button.
Public Sub CommandButton1_Click()
'Weiter zu Userform2
If OptionButton1 = True Then
Unload UserForm1
'Userform2 anzeigen
UserForm2.Show
Else: MsgBox "Bitte beantworten Sie alle Fragen"
End If
'Fakultätenzaehler erhöhen
End Sub
Public Sub CommandButton2_Click()
'Abbrechen
Unload UserForm1
'zaehler auf 0 setzen
For zahl = 1 To 14
zaehler(zahl) = 0
Next zahl
End Sub
Das erhöhen vom Zähler sieht für jeden gedrückten OptionButton so aus (nur dass die Punkte Anzahl natürlich an die Fragen angepasst ist):
If OptionButton1 = True Then
zaehler(1) = zaehler(1) + 0
zaehler(2) = zaehler(2) + 0
zaehler(3) = zaehler(3) + 2
zaehler(4) = zaehler(4) + 1
zaehler(5) = zaehler(5) + 2
zaehler(6) = zaehler(6) + 2
zaehler(7) = zaehler(7) + 2
zaehler(8) = zaehler(8) + 2
zaehler(9) = zaehler(9) + 1
zaehler(10) = zaehler(10) + 1
zaehler(11) = zaehler(11) + 1
zaehler(12) = zaehler(12) - 2
zaehler(13) = zaehler(13) + 1
zaehler(14) = zaehler(14) + 1
ElseIf OptionButton2 = True Then
'siehe OptionButton1 usw
|