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

OptionButtons in einer Schleife abfragen

Forumthread: OptionButtons in einer Schleife abfragen

OptionButtons in einer Schleife abfragen
11.03.2005 09:42:17
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 Integer
Name(1) = "....": Name(2) = "...." 'usw.
For i = 1 to 15
If UserForm1.OptionButton(i).Value then ....
UserForm1.CheckBox(i).Caption = Name(i)
Next i
Kann mir hier Jemand weiterhelfen.
Vielen Dank schon mal.
Freundliche Grüße
Werner
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: OptionButtons in einer Schleife abfragen
11.03.2005 10:56:47
Heiko
Hallo
wenn deine Button von 1 bis 15 durchnummeriert sind, dann z.B. so.
Hiermit werden alle 15 auf False (nicht angewählt) gesetzt.
Müsstest du dir für deinen Code anpassen.

Private Sub CommandButton3_Click()
Dim intIndex As Integer
For intIndex = 1 To 15
Userform1.Controls("OptionButton" & CStr(intIndex)).Value = False
Next
End Sub

Gruß Heiko

PS: Rückmeldung wäre nett !
Anzeige
AW: OptionButtons in einer Schleife abfragen
11.03.2005 10:59:48
bst
Morgen Werner,
nimm sowas Userform1.Controls(index) bzw. Userform1.Controls("name").
Oder, IMHO besser laufe über alle Controls.
HTH, Bernd
-- 

Private Sub UserForm_Initialize()
Dim ctrl As MSForms.Control
For Each ctrl In Controls
If TypeOf ctrl Is MSForms.CheckBox Then
Debug.Print "Checkbox", ctrl.Name, ctrl.Value
ElseIf TypeOf ctrl Is MSForms.OptionButton Then
Debug.Print "OptionButton", ctrl.Name, ctrl.Value
End If
Next
End Sub

Anzeige
AW: Danke jetzt läuft es super
11.03.2005 13:00:29
WHN
Danke an Bernd und Heiko,
läuft alles prima, euere Tipps haben mir gut geholfen.
Viele Grüße
Werner
;

Forumthreads zu verwandten Themen

OptionButtons in Wenn-Funktion
Peter

Hallo zusammen,
ich möchte gerne eine WENN-Funktion schreiben, die beinhaltet:
=WENN("OptionButton1 auf Tabellenblatt 1"=Aktiv; Bezug zu Zelle A1 auf Tabellenblatt 2; WENN "OptionButton2 auf Tabellenblatt 1"=Aktiv; Bezug zu Zelle A2 auf Tabellenblatt 2;0))
Geht so was? Wie lautet...
15.09.2008 14:46:00
Thread-ID: 1009790
5 Beiträge
Anzeige
Optionbuttons müssen einen Wert wiedergeben
Thierry

Hallo!
In einer Userform habe ich verschiedene Option Buttons. Je nachdem welche Options Buttons gewählt werden, muss das Resultat in Zelle 8 bzw 9, "1" oder "0" sein.
Teilcode
Cells(ActiveCell.Row, 8) = IIf(OptMobiCar.Value = True And optConclusione1.Value = True, 1, 0)
Cells...
07.12.2008 20:59:00
Thread-ID: 1030920
6 Beiträge
Anzeige
OptionButtons in Grp mittels Makro erstellen
adrian

Hi,
wie folgt wird ein OptionButton mittels Makro erstellt: Die Prozedur wird dann zusammen mit einer anderen im HauptSheet aufgerufen.
Nur weiß ich leider nicht wie ich mehrere OB, bzw. drei untereinander als Gruppe erstellen kann =(
Mehrere Prozeduren, für jeweils jeden OB ist ja...
16.12.2008 14:44:00
Thread-ID: 1033291
13 Beiträge
@Adrian, OptionButtons in Gruppen
Tino

Hallo Adrian,
der Beitrag ist im Archiv gelandet.
Solltest Du keine Mailbenachrichtigung eingestellt haben.
Hier der Beitrag.
https://www.herber.de/forum/archiv/1032to1036/t1033291.htm
Hier findest Du die Beispieldatei von mir.
https://www.herber.de/forum/archiv/1032to1...
23.12.2008 09:10:00
Thread-ID: 1034927
3 Beiträge
Optionsbutton in Userform abhängig von Zelle
Zelle

Hallo,
ich habe drei Optionsbuttons in einer Userform. Alle gehören zu einer Gruppe.
es kann also immer nur eine Option gewählt sein.
Beim Aufruf der Userform soll eine Option in Abhängigkeit des Wertes in Zelle A1
"voreingestellt" werden.
Dazu habe ich im Userform_Initializ...
26.01.2009 12:04:00
Thread-ID: 1043821
3 Beiträge
Anzeige
OptionButton in Userform
Eduard

Hallo,
ich habe in einer Arbeitsmappe eine Userform mit 4 Optionsbuttons. Über die Optionsbuttons wähle ich aus, welche Daten aus der Arbeitsmappe ich drucken möchte (Daten1, Daten2, Daten3 und Daten4). Wenn nun z.B. in Zelle A1 der Wert 0 ist möchte ich das der OptionButton1 auf "enable =...
26.02.2009 18:53:52
Thread-ID: 1054501
8 Beiträge
OptionButton Transparenter Hintergrund
chrissey

Hallo Leut,
bastle gerade eine Userform mit mehreren Optionbuttons über einer Grafik (Weltkarte)
Kann ich die Hintergrundfarbe (unter Eigenschaften BackColor) auch transparent machen?
Danke schon mal und liebe Grüße
Chrissey
13.10.2009 12:41:56
Thread-ID: 1109308
3 Beiträge
Anzeige
OptionButton7 aktiv dann Text X in Listbox1
Wolfgang

Hallo,
auf einer Multipage befinden sich u.a. Listboxes und OptionButton; Wie kann ich erreichen, dass, wenn OptionButton7 aktiviert wird, automatisch in Listbox1 der Text z.B. "Test3", der sich an dritter Stelle in der Listbox befindet, die wiederum aus einer Tabelle "gespeist" wird, angez...
24.10.2009 08:56:56
Thread-ID: 1111782
5 Beiträge
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
optionbutton wert in tabellenblatt
andreas

hallo
kann mir bitte jemand helfen. wie stelle ich es an, dass er wert (oder besser angeklickte optionbutton) in einer tabelle in der spalte mit dem selben namen mit einem "x" eingetragen wird?währe superbesten dank
10.04.2002 22:05:57
Thread-ID: 112269
3 Beiträge
optionbutton wert in tabellenblatt (nochmals)
Hajo
Hallo Andreasich vermute mal das Du den OptionButton mit der Steuerelemente Toolbox erstellt hast. Den Code ungefähr so. (zu wenig Informationen)
Gruß Hajo
13.04.2002 16:46:08
Thread-ID: 113056
5 Beiträge
OptionButtons per VBA: Automation Error
Sven

Hallo liebe Herber-Gemeinde,
ich hab grad das Problem, dass ich in einer langen Liste in einem Arbeitsblatt Optionbuttons _ per VBA hinzufügen möchte. Dazu benutze ich folgenden Code: With ActiveSheet For i = 2 To ende .OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, Displa...
20.07.2010 19:50:33
Thread-ID: 1167914
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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