Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1312to1316
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Modul für Eigenschaften aller Optionbuttons

Modul für Eigenschaften aller Optionbuttons
14.05.2013 08:55:49
Jonas
Hallo,
ich habe in letzter Zeit viele Fragen zum Thema OptionButton gestellt und in den meisten Fällen eine perfekte Antwort bekommen.
Jetzt habe ich eine weitere Frage und hoffe, dass mir auch hier geholfen werden kann.
Ich habe eine Excel-Datei mit mehreren Blättern auf denen sich viele OptionButtons befinden. Immer 5 Buttons sind gruppiert.
Auf dem Deckblatt möchte ich Einstellungen der Buttons vornehmen können.
Wichtig wäre mir, dass ich mit Klick auf einen Button alle OptionsButton-Gruppen auf Mittelstellung sortieren kann.
Ich habe eine Datei vorbereitet, die das Problem genauer zeigt.
https://www.herber.de/bbs/user/85319.xlsm
Leider bin ich nur bedingt erfahren in Sachen Programmierung. Ich stelle mir ein Modul vor, dass über die OptionsButtons schleift und den Wert des jeweils mittleren Buttons auf True setzt. Ausgelöst werden soll das Modul durch klicken auf den entsprechenden Button.
Generell ist mir nicht klar, wie ich OptionsButtons in verschiedenen Blättern aus einem Modul heraus "ansprechen" kann. Die Schleife sollte ich hinbekommen :-)
Vielen Dank und Grüße
Jonas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Modul für Eigenschaften aller Optionbuttons
14.05.2013 09:25:57
Beverly
Hi Jonas,
versuche es mal so:
Private Sub CommandButton1_Click()
Dim oobElement As OLEObject
Dim wksTab As Worksheet
For Each wksTab In Worksheets
With wksTab
If .OLEObjects.Count > 0 Then
For Each oobElement In .OLEObjects
If TypeName(oobElement.Object) = "OptionButton" Then
If oobElement.LinkedCell  "" Then
If .Range(oobElement.LinkedCell).Column = 16 Then oobElement.Object = True
End If
End If
Next oobElement
End If
End With
Next wksTab
End Sub


Anzeige
AW: Modul für Eigenschaften aller Optionbuttons
14.05.2013 10:04:07
Jonas
Perfekt, funktioniert super.
Traurig ist nur, dass ich da nie drauf gekommen wäre.
Egal, wieder etwas gelernt.
Danke vielmals,
Jonas

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige