Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1144to1148
1144to1148
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro in Abhängigkeit mehrerer OptionButton

Forumthread: Makro in Abhängigkeit mehrerer OptionButton

Makro in Abhängigkeit mehrerer OptionButton
Wolfgang
Hallo,
auf einem UF befinden sich insgesamt 12 OptionButton 1,3,5,7,9 und 11 stehen für JA - 2,4,6,8,10 und 12 stehen für NEIN. Solange alle NEIN OptionButton markiert sind (sind so vorbelegt), soll Makro1 gestartet werden, ansonsten Makro2 -sobald also ein OptionButton mit JA markiert ist. Wäre soetwas realisierbar? Wenn ja, wie müßte ich da vorgehen? - Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
Wolfgang
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro in Abhängigkeit mehrerer OptionButton
20.03.2010 19:47:14
Hajo_Zi
Hallo Wolfgang,
ich würde ddas mit CheckBoxeb machen, da OptionsButton eigentlich nur einer angewählt werden kann.
Gruß Hajo
AW: Makro in Abhängigkeit mehrerer OptionButton
20.03.2010 19:57:17
Wolfgang
Hallo Hajo,
danke für die Rückmeldung.- Sorry, ich vergaß zu sagen, dass sich jeweils zwei OptionButton (jeweils JA und NEIN) in einem Frame befinden. Mir geht es dabei darum, dass, solange alle auf NEIN stehen, ein bestimmte Makro gestartet wird und sobald nur ein OptionButton auf Ja steht ein anderes Makro startet.
Gruß - Wolfgang
Anzeige
AW: Makro in Abhängigkeit mehrerer OptionButton
20.03.2010 19:59:23
Hajo_Zi
Hallo Wolfgang,
Du hast bestimmt eine gewisse Zeit gebraucht um das Beispiel zu erstellen. Warum müssen wir diese Zeit nochmal investieren? Ich mache es jedenfalls nicht.
Gruß Hajo
anbei Mustermappe
20.03.2010 20:10:40
Wolfgang
Hallo Hajo,
anbei eine Mustermappe mit dem UF.- Danke schon jetzt wieder für die Rückmeldungen.
https://www.herber.de/bbs/user/68679.xls
Anzeige
AW: anbei Mustermappe
20.03.2010 20:15:30
Hajo_Zi
Hallo Wolfgang,
ich halte mich an Dein Prinzip und schicke auch nur den halben Code. 
Option Explicit
Dim BoJa As Boolean
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub OptionButton1_Click()
BoJa = True
End Sub
Private Sub OptionButton11_Click()
BoJa = True
End Sub
Private Sub OptionButton3_Click()
BoJa = True
End Sub
Private Sub OptionButton5_Click()
BoJa = True
End Sub
Private Sub OptionButton7_Click()
BoJa = True
End Sub
Private Sub OptionButton9_Click()
BoJa = True
End Sub
Gruß Hajo
Anzeige
AW: Optionbuttons in UF auswerten
20.03.2010 20:31:19
Gerd
Guten Abend Wolfgang,
in der Ruhe liegt die Kraft. :-) 
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 11 To 1 Step -2
If Controls("OptionButton" & i) Then Exit For
Next
If i = -1 Then
Call Makro1
Else
Call Makro2
End If
'Unload Me 'ggf.
End Sub
Gruß Gerd
Anzeige
Danke Gerd!!
20.03.2010 20:44:25
Wolfgang
Hallo Gerd,
herzlichen Dank für Deine Rückmeldung und Überlassung des Codes. Der ist ja erheblich "eleganter", als mein Code. Habe ihn sofort "eingebaut" und er läuft prima und problemlos. Hab nochmals recht herzlichen Dank dafür.
Gruß - Wolfgang
Danke - hat sich erledigt
20.03.2010 20:33:05
Wolfgang
Hallo Hajo,
habe noch ein wenig weiter recherchiert und getestet und dabei folgenden Code klären können, der genau das macht, was ich erreichen möchte. Insofern hat sich meine Anfrage erledigt. Danke für Deine Rückmeldungen und dafür dass Du Dir Zeit für mich genommen hast.
Gruß - Wolfgang
Private Sub CommandButton1_Click()
If OptionButton1 = True Or OptionButton3 = True Or OptionButton5 = True Or OptionButton7 = True  _
Or OptionButton9 = True Then
MsgBox "Test1"
Else
MsgBox "Alle Boxen stehen auf Nein"
End If
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige