Optionbutton
06.12.2021 21:21:22
Edmund
sicher kann mir einer bei meinem Problem helfen.
Ich habe in einem Tabellenblatt mehrere Optionbutton eingebunden die mir in einer Celle jeweils einen Wert schreiben sollen, sobald aktiviert
Wenn ich einen Button anklicke schreibt er mir auch den Wert in das benachbarte Feld. Wenn ich aber einen anderen Button anklicke bleibt dieser Wert in den Feld stehen. Er sollte bei nicht aktiv gelöscht werden. Mein Code funktioniert aber nicht.
Gibt es vielleicht auch eine Möglichkeit das ganze zu verkürzen, also nicht für jeden Button die gleiche Prozedur zu schreiben?
Ich habe mal die Testdatei mit hochgeladen. Vielen Dank für die Hilfe.
https://www.herber.de/bbs/user/149624.xlsm
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then Range("D12").Value = 150
If OptionButton1.Value = False Then Range("D12").Delete
End Sub
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then Range("D13").Value = 160
If OptionButton2.Value = False Then Range("D13").Delete
End Sub
Private Sub OptionButton3_Click()
If OptionButton3.Value = True Then Range("D14").Value = 160
If OptionButton3.Value = False Then Range("D14").Delete
End Sub