Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1976to1980
1976to1980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle ActiveX-Optionbuttons aus einem Groupname auf "False"

Forumthread: Alle ActiveX-Optionbuttons aus einem Groupname auf "False"

Alle ActiveX-Optionbuttons aus einem Groupname auf "False"
10.05.2024 12:29:14
Robert
Hallo liebe Experten und Expertinnen!

Ich suche im www schon verzweifelt und ChatGPT liefert mir auch keinen Code, der funktioniert...

In einer Excel-Tabelle habe ich *sehr* viele ActiveX-Optionbuttons, die mit Groupnames jeweils in viele Gruppen zusammengefasst wurden. (Sie sind nicht "gruppiert" mit irgendwas anderem...)
Jetzt kann es sein, dass in einer solchen Gruppe auch KEINE Option gewählt wird, aber leider doch ein Button angeklickt wurde. Ich möchte also den ganzen Groupname wieder resetten = alle Optionbuttons auf FALSE setzen.

ChatGPT versucht mir einen Code anzudrehen, der für einen einzelnen Button mit einem spezifischen Namen funktioniert. Da ich aber so viele Buttons habe, würde ich da wahnsinnig... Und ein weiteres Skript, diesen Code jedem einzelnen Button anzudrehen, versagt regelmäßig.

Ich hoffe somit doch auf Menschengemachtes und -gedachtes ;-)
Wer kennt hier eine Lösung, dass ich z.B. mit rechtem Mausklick/Doppelklick oder einem weiteren Makro(-Knopf), das erkennt, welcher Groupname gerade aktiv ist, eine solche Gruppe komplett resette?

1000 Dank!!!
Robert
Anzeige
AW: Alle ActiveX-Optionbuttons aus einem Groupname auf "False"
10.05.2024 13:04:45
Kuwer
Hallo Robert,

weise jeweils einem Button jeder Gruppe ein Doppelklick-Ereignismakro zu: 

Private Sub OptionButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

  OptionButton1.Value = False

  Cancel = True

End Sub


Gruß, Uwe
Anzeige
AW: Alle ActiveX-Optionbuttons aus einem Groupname auf "False"
10.05.2024 13:08:53
Oberschlumpf
Hi Uwe,

mit deinem Code wird doch nur OptionButton1 "zurückgesetzt" und nicht viele Button, oder was hab ich nicht verstanden?

Ciao
Thorsten
AW: Alle ActiveX-Optionbuttons aus einem Groupname auf "False"
10.05.2024 13:57:38
Robert
Hallo Uwe,

Danke!

Hallo Thorsten,

richtig: Nur ein - und zwar der gerade geklickte - Button wird geleert. Hier heißt er "WS"

Habe mit etwas digitaler Hilfe das Skript erweitert, so dass die ganze Gruppe durchleert wird: 

Private Sub WS_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

  Dim optButton As OLEObject

  Dim groupName As String

  

  groupName = WS.groupName ' Gruppenname des ausgewählten OptionButtons abrufen

  ' Durch alle OLEObjects in der Arbeitsmappe iterieren

        For Each optButton In ThisWorkbook.Sheets("Checkliste Grüne Wiese").OLEObjects

            ' Überprüfen, ob das OLEObject ein OptionButton ist und den gleichen Gruppennamen hat wie der ausgewählte Button

            If TypeOf optButton.Object Is MSForms.OptionButton And optButton.Object.groupName = groupName Then

                optButton.Object.Value = False

            End If

        Next optButton

  

  Cancel = True

End Sub


Fein - aber was mach ich mit den anderen Gruppen- bzw. Buttonnamen?
Für jede ein eigenes Skript...?! :-(

Merci.
Anzeige
AW: Alle ActiveX-Optionbuttons aus einem Groupname auf "False"
10.05.2024 15:36:47
Oberschlumpf
Hi Robert,

wozu is denn die For Each-Schleife erforderlich?
Wenn aus 1 Gruppe nur 1 Button mit dem Code von Uwe belegt wird, sind doch alle anderen Button aus der gleichen Gruppe automatisch "ausgeschaltet".

Ciao
Thorsten
AW: Alle ActiveX-Optionbuttons aus einem Groupname auf "False"
10.05.2024 15:56:25
Robert
Ja, hab ich jetzt auch kapiert.
Sein Skript reicht.
Anzeige
Es kann ja nur ein Button je Gruppe True sein! ...
10.05.2024 14:37:33
Kuwer
Hi Thorsten,

... darum reicht es doch, den gerade geklickten zurückzusetzen. ;-)
Deswegen würde auch ein Button je Gruppe genügen, dem dieser Code (entsprechend benamst natürlich) zugewiesen wird.

Gruß, Uwe
AW: Es kann ja nur ein Button je Gruppe True sein! ...
10.05.2024 15:13:52
Robert
Hallo Uwe!
Äh - ja. Das ist natürlich genial, da es ja Optionbuttons sind (Applaus!). Danke!

Aber ohne Namen des Buttons geht's wohl nicht - ich meine 

Private Sub egalwieichheißeodergenanntwurde_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

  egalwieichheißeodergenanntwurde.Value = False

  Cancel = True

End Sub


oder?

Schade... dann muss ich die Tabelle durchpflügen, und nehme wohl immer das oberste Feld zum Reset.
Anzeige
AW: Es kann ja nur ein Button je Gruppe True sein! ...
10.05.2024 15:42:59
Oberschlumpf
Hi Robert,

noch mal ich.
Hmm??? Was genau möchtest du erreichen?

1. Willst du genau nur 1 Gruppe mit OptionButton "ausschalten"?
2. Oder willst du mit 1 (Doppel)Klick ALLE OptionButton-Gruppen "ausschalten"??

Bei 1. = ja, da musst du in jeder Gruppe einen Button mit Uwes Dbl-Click-Code belegen.
Bei 2. bräuchtest du einen zusätzlichen Button, z Bsp CommandButton oder was auch immer, der dann genau nur dafür da ist, alle OptionButton "auszuschalten".
Oder du nimmst einen weiteren Button in der Menüzeile, in dem du schon den Button "reset all boxes" hast, der sowohl CheckBoxen und auch OptionButton "ausschaltet".
Der zusätzliche Button schaltet dann "nur" die OptionButton aus.

Und DAS könntest du dann, genau, mit einer Schleife erreichen.

Ciao
Thorsten
Anzeige
AW: Es kann ja nur ein Button je Gruppe True sein! ...
10.05.2024 15:59:09
Robert
ich will nur die Optionsbutton der aktiven Gruppe (Groupname) auf "False" setzen.
Das komplette Leeren aller Optionbuttons und Checkboxen habe ich schon als Makro für die gesamte Arbeitsmappe...

Ich habe jetzt Uwes Skript für jede Gruppe eingefügt und angepasst.
AW: Es kann ja nur ein Button je Gruppe True sein! ...
10.05.2024 15:34:55
Oberschlumpf
Hi Uwe,

ja,natürlich! Bei OptionButton kann ja immer nur EIN Button aus der selben Gruppe gewählt werden - somit reicht natürlich dein Dbl_Click-Code!
Jetzt, nach dem ich die Bsp-Datei sah + testen konnte, hab auch ich es kapiert...yeahh!^^ :-)

Ciao
Thorsten
Anzeige
AW: Alle ActiveX-Optionbuttons aus einem Groupname auf "False"
10.05.2024 13:07:06
Oberschlumpf
Hi Robert,

deine Frage, Bitte, Wunsch ist genau so, als wenn ich zu dir sagen würde:

Mein Auto ist kaputt. Mach du es bitte mal wieder heile. ...OHNE, dass ich dir mein Auto zeige!

Also, zeig bitte per Upload eine Excel-Bsp-Datei mit 20 Option-Button, die, genau so!, wie du es beschrieben hast, in unterschiedliche Gruppen aufgeteilt sind.
Und dann sehen auch wir etwas, mit dem wir testen können.

Ciao
Thorsten
Anzeige
AW: Alle ActiveX-Optionbuttons aus einem Groupname auf "False"
11.05.2024 22:52:21
Daniel
Hi
versuche, Optionbuttons wenn immer möglich durch eine Listbox oder Combobox zu ersetzen.
das sollte vieles vereinfachen, schon dadurch, dass du viel weniger Einzelobjekte benötigst.
Beispielsweise reicht es dann, die Ausgabezelle der Listbox zu leeren.
Gruß Daniel
AW: Alle ActiveX-Optionbuttons aus einem Groupname auf "False"
10.05.2024 13:26:56
Robert
Hallo Thorsten,

hatte gehofft, so allgemeingültig zu schreiben, dass das Problem im luftleeren Raum gelöst werden kann...

Danke, wenn du dich direkt mit der Datei auseinandersetzen willst!
Ich habe nur ein kleines Teilchen rausgeschnipselt, da sie sonst zu groß wäre und wohl auch vielleicht sensible Infos der Firma beinhaltet...

Sollte hier sein: https://www.herber.de/bbs/user/169383.xlsm

Grüße
Robert
Anzeige
AW: Alle ActiveX-Optionbuttons aus einem Groupname auf "False"
10.05.2024 13:42:50
Yal
Hallo Robert,

das Thema GroupName auf ActiveX-Controls ist tatsächlich ... kompliziert.

Versuche diesen Code: 
Sub test()

Dim S

Dim OO



    For Each S In ActiveSheet.Shapes

        If S.Type = msoOLEControlObject Then

            Set OO = S.OLEFormat.Object.Object

            Debug.Print S.Name, OO.Caption, OO.GroupName

        End If

    Next

End Sub


VG
Yal
Anzeige
AW: Alle ActiveX-Optionbuttons aus einem Groupname auf "False"
10.05.2024 13:59:59
Robert
Hallo Yal,

danke für deine Hilfe!

(Wieder was gelernt "Debug.print" und dann im Direktbereich nachschauen...)

Da erscheint jetzt eine lange, lange Liste aller Optionbuttons und Checkboxen mit ihren Gruppennamen... Das ist beeindruckend, aber was kann ich damit speziell anfangen?

Merci - Robert
Anzeige

Forumthreads zu verwandten Themen

VBA - Klasse von OptionButton auf Arbeitsblatt? | Herbers Excel-Forum
Andreas
Hallo Excelgemeinde,
ich habe das Problem, dass es mir nicht gelingen will, in einer Schleife mehrere OptionButtons eines Arbeitsblattes zu adressieren.
Von der Sache her gehören Sie zur Klasse Tabelle, aber ansprechen kann ich sie nur einzeln. Die Namen der Buttons enden alle mit einer for...
14.01.2010 11:58:19
Thread-ID: 1129850
15 Beiträge
userform frame1 mit 2optionbutton abfragen!
Lisa

Hallo zusammen, ich habe in meiner Userform1 ein Frame mit 2 Optionbutton
OptionButton1.Caption = "ja"
OptionButton2.Caption = "nein"
einer der beiden muss zwingend betätigt werden !
Dazu müsste also der Wert geprüft werden!
ich habe es so versucht, dann kommt aber immer die...
06.12.2011 14:49:23
Thread-ID: 1240854
3 Beiträge
VBA Option Button
Katharina

Hallo,
ich möchte in VBA eine Userform erstellen, habe dafür mehrere Optionsbutton.
Nun möchte ich, dass wenn ich die mögliche Option anlicke, mir diese Option in der Spalte A, da wo nichts drinnen steht rausgebenen wird.
Leider passiert in meinem Code gar nichts
Hat da jemand...
17.11.2014 15:17:36
Thread-ID: 1392844
3 Beiträge
VBA OptionButton Finden und Ergebnis speichern
Madi

Hallo zusammen,
vielen Dank schon einmal vorab für eure große Mühen, welche ihr für uns auf euch nehmt.
Ich bin ein Anfänger in VBA und versuche gerade für meine Kollegen eine kleine Datenbank aufzubauen, welche hoffentlich dazu beitragen kann, dass die Herren etwas strukturierter Arbei...
11.07.2018 23:55:48
Thread-ID: 1633557
4 Beiträge
VBA: OptionButton (With/If/Case)
Charly

Hallo Forum,
ich habe ein Problem mit OptionButton.
Mappe(1) mit UF:
OptionButtonen
ComboBox(RowSource hinterlegt)
TextBoxen, nur zur Darstellung von Inhalten, keine Schreiben
CommandButto´s
Mappe(3) ist eine Vorlage, für die TextBox/Inhalt
Wenn Ich in Mappe(1) p...
19.06.2019 05:11:00
Thread-ID: 1698389
6 Beiträge
Anzeige
OptionButton GroupName per Formel bestimmen
Bernd

Hallo,ich habe eine Arbeitsmappe mit 7 "identischen" Arbeitsblättern. Auf diesen Arbeitsblättern befinden sich 3 OptionButtons. Damit sich die Buttons der verschiedenen Arbeitsblätter nicht beeinflussen, müssen die GroupNames ja unterschiedlich sein.Nach Änderungen des ersten Arbeitsblattes wir...
26.03.2003 10:44:18
Thread-ID: 236566
2 Beiträge
Value mehrerer OptionButtons abfragen
Jürgen K.
Hallo Excel Experten,

auf einer UserForm habe ich mehrere (15) OptionButtons, über die ich Daten für eine Auswertung eingrenzen kann. Wenn nun beim Drücken des Startknopfes zuvor
keiner der OptionButtons aktiviert wurde, soll eine entsprechende Info erscheinen (MsgBox), was kein Problem...
04.09.2003 15:49:08
Thread-ID: 305012
8 Beiträge
Anzeige
Optionbutton abfragen
LotharP
Hallo,
ich habe ein UserForm mit zwei Optionbuttons.
Ich frage (NEIN VERSUCHE) ab ob ein Auswahlfeld aktiv ist.
Die Namen der Felder sind geändert
Optionbutton1=ZDEL
Optionbutton1=ZINS
Er meint aber irgendwie Zdel wäre immer aktiv?!
Was mach' ich mal wieder falsch?

18.09.2003 15:34:11
Thread-ID: 311828
5 Beiträge
OptionsButton abfragen
Toni

Hallo VBA'ler,
ich habe auf einer Multipage acht OptionButton unter einem GroupName.
Ich möchte per Programm eine Meldung bringen, wenn keiner dieser Button angeklickt ist.
Mit dem Code:
if optEins.value = false and
optZwei.value = false and
...
optDrei.value = false then...
01.01.1970 00:00:00
Thread-ID: 413319
3 Beiträge
OptionButton abfragen (Frage von Toni)
Toni)

Toni schrieb:
Hallo VBA'ler,
ich habe auf einer Multipage acht OptionButton unter einem GroupName.
Ich möchte per Programm eine Meldung bringen, wenn keiner dieser Button angeklickt ist.
Mit dem Code:
if optEins.value = false and
optZwei.value = false and
...
opt...
30.07.2004 10:26:52
Thread-ID: 462646
3 Beiträge
OptionButtons in einer Schleife abfragen
WHN

Hallo Leute,
ich möchte den Zustand von 15 OptionButtons und 15 CheckBoxen in einer Schleife
Abfragen, außerdem möchte ich auch die Namen der CheckBoxen zuweisen.
Leider klappt es nicht so wie ich es mir vorstelle.
Hier mein Versuch:
Dim Name(1 to 15) as String
Dim i as...
11.03.2005 09:42:17
Thread-ID: 583654
4 Beiträge
Anzeige
Optionsbutton Abfragen
Ingo

Hallo!!
Ich weiß nicht wie ich Abfragen kann, welcher Button makiert ist. Ich erstelle in meinem Programm bis zu 36 Buttons.
Sheets("Triggersignal").Select
oben = 30
höhe = 20
breite = 330
erg = 0
I = 0
For I = 0 To 37 Step 1
If Cells(5 + I, 3).Value "" Then...
07.11.2005 17:59:05
Thread-ID: 692688
6 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige