Office: Zellwert je nach Zustand Optionbutton

Hallo zusammen,

ich möchte für die Bewertung eines Projektes je nach ausgewählter Antwort Punkte vergeben und diese am Schluss zu einem Total zusammenzählen.

Pro Thema stehen drei OptionButtons zur Verfügung, welche ja nach Auswahl 3, 2 oder 1 Punkt geben. Die OptionButtons habe ich als ActiveX-Steuerelemente eingefügt damit ich sie gruppieren konnte.

Ich möchte einer Zelle (z.B. G19) je nach gewähltem Button die entsprechende Punktezahl sehen. Da ich nicht rausgefunden habe wie das geht, wollte ich alternativ pro OptionButton den Wert in eine Zelle schreiben (markiert = 3, nicht markiert = 0) und dann halt in Zelle G19 das Total ausrechnen. Nun funktioniert es, dass es mir bei ausgewähltem Button die entsprechende Punktezahl in die Zelle schreibt. Wir der Button deaktiviert, ändert sich der Wert wieder auf 0.

Mein VBA-Code sieht wie folgt aus:

Private Sub OptionButton13_Click()

If OptionButton13.Value = True Then
Tabelle2.Range("C20") = "3"
Else
Tabelle2.Range("C20") = "0"
End If

End Sub

Was mache ich falsch? Oder wie muss ich für einen eleganteren Weg vorgehen?

Vielen Dank für eure Tipps!

Gruss
Henry96

:)

 

Hallo Henry,

Private Sub OptionButton13_Click()

If OptionButton13.Value = True Then
Worksheets("Tabelle2").Range("C20") = "3"
Else
Workheetss("Tabelle2").Range("C20") = "0"
End If

End Sub

 

Hallo zusammen,

ich habe ein ähnliches Problem, nutze aber die Userform zur Lösung.

Sollte das Thema hier falsch sein, mache ich gerne einen neuen Thread auf (Ich bin nicht nur bei VBA neu, auch in Foren).

Ich versuche in eine bestehende Tabelle über einen Button eine neue Zeile zu generieren. Der Wertebereich beginnt in Zeile 7. Ich stelle mir vor, dass man auf einen Button klickt, danach geht die Userform auf, man wählt eine von sechs Optionen aus, klickt OK und in der letzten leeren Zeile des Wertebereichs steht in Spalte A das Tagesdatum und in Spalte B eine Beschreibung (Text) in Abhängigkeit der gewählten Option.

Eine Beispieldatei mit einem ersten Versuch liegt bei. Es will aber nicht so recht funktionieren. Es wäre schön, wenn jemand helfen kann!

Gruß,
Stefan

 

Danke Rainer! Leider funktioniert es noch nicht wie gewünscht. Den (vermuteten) Schreibfehler beim zweiten mal 'Worksheets' habe ich zwar korrigiert, doch die '3' beim deaktivieren des Buttons bleibt bestehen...

Der Code sieht jetzt so aus:

Private Sub OptionButton13_Click()

If OptionButton13.Value = True Then
Worksheets("Tabelle2").Range("C20") = "3"
Else
Worksheets("Tabelle2").Range("C20") = "0"

End If

End Sub


Habe ich noch irgend einen wichtige Info unterschlagen damit es funktioniert?

Gruss
henry96

 

Hallo henry96,

wenn Du den OptBtn nicht anklickst, löst das Klick-Ereignis auch nicht aus. Eine reine Zustandsänderung (Löschung durch Aktivieren eines anderen OptBtn) reicht dafür nicht aus. Also bleibt die 3. Der Wert müsste also durch ein anderes Ereignis überschrieben werden.

Nebenbei: Zahlenwerte bedürfen keiner Anführungszeichen, um sie zuzuweisen.

Grüße
EarlFred

 

Hallo Henry,

probier's mal so

Code:

 

Super, funktioniert nun. Danke EarlFred!

Der Code sieht nun so aus:

Private Sub OptionButton13_Click()

If OptionButton13.Value = True Then
Worksheets("Tabelle2").Range("C20") = 3
Worksheets("Tabelle2").Range("D20") = 0
Worksheets("Tabelle2").Range("E20") = 0

End If

End Sub


Gruss
henry96