Office: Optionbuttons

Hallo zusammen,

benutze Excel 2003 und habe jetzt zur Verschönerung der Oberfläche den OptionButton (Optionsfeld - Steuerelement) entdeckt. Jetzt habe ich folgendes Problem und zwar soll wenn man auf den Button klickt in ein entsprechendes Feld der Buchstabe x geschrieben werden und bei 4 anderen Feldern der Inhalt gelöscht werden, also sollen leer gemacht werden. Ich habe das ganze etwas umständlich gelöst:

Private Sub OptionButton1_Click()
Range("d11").Select
ActiveCell.FormulaR1C1 = "x"
Range("e11").Select
ActiveCell.FormulaR1C1 = ""
Range("f11").Select
ActiveCell.FormulaR1C1 = ""
Range("g11").Select
ActiveCell.FormulaR1C1 = ""
Range("h11").Select
ActiveCell.FormulaR1C1 = ""
Range("d11").Select

End Sub


Bei 200 Button schon recht viel Schreibarbeit und Speicherverbrauch. Und jedes Mal bei einem Klick wird jede Zelle einmal kurz angewählt, sieht auch nicht schön aus. Das ganze müsste doch auch eleganter zu lösen sein, leider kenn ich mit VBA nicht so aus und hab mir mit dieser Lösung erstmal weitergeholfen.
Hoffe ihr könnt mir helfen. Habe zu Veranschaulichung noch ein Bild beigefügt

Gruß

Andreas

 

Hallo Andreas,
Kurzfassung!

Private Sub OptionButton1_Click()
Range("E11:H11").Value = "" 'wenn leer
Range("D11").Value = "x" 'wenn x geschrieben werden soll
End Sub


lg silex1

 

Vielen Dank Silex, funktioniert wunderbar!