Optionbuttons :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Optionbuttons

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

quande
Newbie
Newbie

Anmeldedatum: 28.05.2008
Beiträge: 2

Verfasst am: 28.05.2008, 11:11

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

jeanie.gif

Beschreibung:

Dateigröße:

4.03 KB

Angeschaut:

130 mal

silex1
User mit gefährlichem Halbwissen

Anmeldedatum: 18.12.2007
Beiträge: 122
Wohnort: Dresden

Verfasst am: 28.05.2008, 11:28

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

_________________
"Was nutzt der Baum der Erkenntnis, wenn das Blatt der Erfahrung fehlt!"

quande
Newbie
Newbie

Anmeldedatum: 28.05.2008
Beiträge: 2

Verfasst am: 28.05.2008, 11:35

Vielen Dank Silex, funktioniert wunderbar!

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de