Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Value mehrerer OptionButtons abfragen

Value mehrerer OptionButtons abfragen
04.09.2003 15:49:08
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 ist.

Ein Problem mach mir jedoch die Abfrage ob einer der 15 OptionButtons aktiviert wurde oder nicht. Über eine 15fach verschachtelte If - Abfrage (If OptionButton1.value = false then If OptionButton2.value = false then...) ist das kein Problem, aber das geht doch sicherlich auch komfortabler?

Wie immer vielen Dank im voraus,
Jürgen

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Value mehrerer OptionButtons abfragen
04.09.2003 16:18:58
K.Rola
Hallo,

auf einer Tabelle oder userform?

Gruß K.Rola
AW: Value mehrerer OptionButtons abfragen
04.09.2003 16:32:59
Michael Scheffler
Hi,

das heißt - genau einer muss True sein?

Gruß

Micha
AW: Value mehrerer OptionButtons abfragen
04.09.2003 16:40:09
Jürgen K.
... ja, genau. Einer der 15 OptionButtons auf der UserForm muß true sein, damit die Auswertung gestartet werden kann.

Gruß, Jürgen
AW: Value mehrerer OptionButtons abfragen
04.09.2003 17:12:30
mar.s
hi Jürgen,
ich kenne das Problem und habe es folgendermassen gelöst. Gib jedem Optionsbutton (unter Eigenschaften im VBA-Fenster) einen Namen, der z.B. mit "OpBn" anfängt. Dann funkt. der nachfolgende Code:


Sub OptButtons_Abfragen()
dim obj As Object
For Each obj In Userform.Controls
If InStr(1, obj.Name, CStr("OpBn"), 1) = 1 Then
If obj.Value = True Then
Auswertung
End If
End If
Next
End Sub


Passe den Code auf deine Bedürfnisse an

Grüsse vom mar.s
Anzeige
AW: Value mehrerer OptionButtons abfragen
05.09.2003 08:55:33
Jürgen K.
Hi Marsianer,

ausgezeichnete Idee! Habe ich mir etwas umgeschrieben und es funktioniert einwandrei.
Das Vergeben der Namen kann man sich aber doch sparen, wenn man nach "OptionButton"
suchen läst.

Wie gesagt, funktioniert hervorragend.

Vielen Dank dafür!

Gruß, Jürgen
AW: Value mehrerer OptionButtons abfragen
04.09.2003 17:13:44
Michael Scheffler
Hi,

warum gruppierst Du die Teile nicht?

Gruß

Micha
AW: Value mehrerer OptionButtons abfragen
05.09.2003 08:58:06
Jürgen K.
Hi Micha,

danke für den Tip, hilft mir aber nicht wirklich weiter.
Vielleicht habe ich das Problem nicht exakt genug beschrieben.
Der Tip "vom Mars" hat mir mittlerweile die Lösung gebracht.

Gruß, JÜrgen
Anzeige

96 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige