Optionbutton

Hallo,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub codeschreiben() Dim i As Long Dim sName As String For i = 1 To ActiveSheet.Shapes.Count 'Debug.Print ActiveSheet.Shapes(i).Name If ActiveSheet.Shapes(i).Name Like "*Group*" Then For cnt = 1 To ActiveSheet.Shapes(i).GroupItems.Count sName = ActiveSheet.Shapes(i).GroupItems(cnt).Name Debug.Print "" Debug.Print "Private Sub " & sName & "_Change()" Debug.Print "" Debug.Print " With ActiveSheet.Shapes(""" & sName & """)" Debug.Print " .BottomRightCell.Offset(-1, 1).Value = IIf(" & sName & ", 160, """")" Debug.Print " End With" Debug.Print "End Sub" Debug.Print "" Next End If Next End Sub 'Diese Sub wird z.b. damit geschrieben Private Sub OptionButton3_Change() With ActiveSheet.Shapes("OptionButton3") .BottomRightCell.Offset(-1, 1).Value = IIf(OptionButton3, 160, "") End With End Sub

HI
das CLICK-Event wird nur ausgeführt, wenn du den Button direkt anklickst.
wenn du einen Optionbutton anklickst ist dessen Wert immer WAHR, deswegen wird dein zweites IF zum löschen der Zelle nie ausgeführt.
das CLICK-Event eines Buttons wird nicht ausgeführt wenn du einen anderen Button anklickst und dieser Button abgewählt wird.
der einfachste Weg wäre hier wahrscheinlich, wenn du statt dem CLICK-Event das CHANGE-Event verwendest. Dieses wird nämlich auch dann ausgeführt, wenn du einen Button durch anklicken eines anderen Buttons abwählst.
weiterhin ist DELETE hier hier der falsche Befehl. DELETE löscht die Zelle und dann rücken die rechts oder darunter liegende Zelle auf diese Postion nach! Du willst hier aber nur den Inhalt leeren, dann wäre CLEARCONTENTS der richtige Befehl
da du viele Buttons hast für die du diesen Code brauchst, würde ich ihn so kurz wie möglich halten.
die kürzeste Variante als Code für einen Button wäre dieses:


Private Sub OptionButton1_Change()
Range("D12").Value = IIf(OptionButton1.Value, 150, "")
End Sub

hat auch den Vorteil, dass du weniger ändern musst, wenn du den Code für die anderen Buttons kopierst.
wobei ich ganze Codefrei ausführen würde.
hierzu brauchst du neben jedem Button zwei zusätzliche Hilfsspalten, welche du aber hinterher ausblenden kannst so dass sie nicht stören:
in Spalte C: diese Zelle verknüpfst du mit dem Button, in dem du die Zelladresse (C12) in der Eigenschaft "LinkedCell" einträgst
in diese Zelle wird dann mit WAHR oder FALSCH eingetragen, ob der Button an
in Spalte D: hier trägst du für alle Zellen den auszugebenden Wert ein (also die 150, 160 usw)
in Spalte E: kommt die Formel: =Wenn(C12;D12;"")
und Spalte E ist dann die Zelle, mit der du weiter arbeitest.
so funktionert das ganze ohne Code, größter Vorteil ist, wenn sich die Werte ändern, musst du nicht in den Code eingreifen, sondern kannst diese direkt in die Tabelle eintragen.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Optionbutton

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread