Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
912to916
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

OptionButton-Gruppe aktiven Wert auslesen

OptionButton-Gruppe aktiven Wert auslesen
NeptunesChild
Hallo Exceler,
ich muss aus einer UserForm die nahezu ausschließlich aus Option-Buttons bestehen wird (ca. 200) die werte aus den einzelnen Gruppen in eine Tabelle übernehmen. Das heisst, ich muss die jeweils aktiven Buttons erkennen und dann mit dem entsprechenden Wert belegen und in die Tabelle eintragen.
Aber wie...?
Vielen dank für die Unterstützung!
Lieben Gruß
Dirk

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: OptionButton-Gruppe aktiven Wert auslesen
09.10.2007 14:17:26
Andi
Hi,
schreibt in Spalte A den Gruppennamen und in Spalte B die Caption des jeweils angeklickten OptionButton:

Sub tt()
Dim obj As Object
Dim zeile As Long
For Each obj In UserForm1.Controls
If TypeName(obj) = "OptionButton" And obj.Value = True Then
With Sheets(1)
zeile = .Range("A65536").End(xlUp).Row + 1
.Cells(zeile, 1).Value = obj.GroupName
.Cells(zeile, 2).Value = obj.Caption
End With
End If
Next obj
End Sub


Schönen Gruß,
Andi

AW: OptionButton-Gruppe aktiven Wert auslesen
NeptunesChild
Hi Andy,
leider schmeisst mich der Debugger in der If-Zeile mit der Meldung "Objekt unterstützt diese Eigenschaft oder Methode nicht" raus.
Hier mein Code:

Private Sub CommandButton1_Click()
Dim obj1 As Object
zeile = Range("A65536").End(xlUp).Row + 1
Worksheets("Tabelle1").Activate
For Each obj In UserForm1.Controls
If TypeName(obj) = "OptionButton" And obj.GroupName = "Z1_1" And obj.Value = True Then
ActiveSheet.Cells(zeile, 5).Value = obj.Caption
End If
Next obj
End Sub


Anzeige
AW: OptionButton-Gruppe aktiven Wert auslesen
09.10.2007 14:50:00
Referenz
Hi
richtig referenziert?

Dim obj1 As Object


AW: OptionButton-Gruppe aktiven Wert auslesen
NeptunesChild
Hi Referenz,
Nach Korrektur leider keine Verbesserung:

Private Sub CommandButton1_Click()
Dim obj As Object
zeile = Range("A65536").End(xlUp).Row + 1
Worksheets("Tabelle1").Activate
For Each obj In UserForm1.Controls
If TypeName(obj) = "OptionButton" And obj.GroupName = "Z1_1" And obj.Value = True Then
ActiveSheet.Cells(zeile, 5).Value = obj.Caption
End If
Next obj
End Sub


AW: OptionButton-Gruppe aktiven Wert auslesen
NeptunesChild
Hi Andi,
leider scheint es nicht daran zu liegen, denn das ist angepasst, aber Meldung bleibt die gleiche.

Private Sub CommandButton1_Click()
Dim obj As Object
zeile = Range("A65536").End(xlUp).Row + 1
Worksheets("Tabelle1").Activate
For Each obj In UserForm1.Controls
If TypeName(obj) = "OptionButton" And obj.GroupName = "Z1_1" And obj.Value = True Then
ActiveSheet.Cells(zeile, 5).Value = obj.Caption
End If
Next obj
End Sub


Anzeige
AW: OptionButton-Gruppe aktiven Wert auslesen
09.10.2007 15:06:00
Andi
Hi,
so müsste es gehen:

Private Sub CommandButton1_Click()
Dim obj As Object
Dim zeile As Long
zeile = Range("A65536").End(xlUp).Row + 1
Worksheets("Tabelle1").Activate
For Each obj In UserForm1.Controls
If TypeName(obj) = "OptionButton" Then
If obj.GroupName = "Z1_1" And obj.Value = True Then
Sheets("Tabelle1").Cells(zeile, 5).Value = obj.Caption
ActiveSheet.Cells(zeile, 5).Value = obj.Caption
End If
End If
Next obj
End Sub


Ich hatte meinen Code in einer UF getestet, die ausschliesslich OptionButton enthielt, und da läuft das dann auch. Sobald aber auch ein CmdButton auf der UF ist, gibt's hier Probleme:
If TypeName(obj) = "OptionButton" And obj.GroupName = "Z1_1" And obj.Value = True Then
und zwar weil ein CmdButton keine GroupName-Eigenschaft hat. Deswegen muss man die if-Abfrage aufsplitten, und auf GroupName nur dann prüfen, wenn das gerade in der Schleife betrachtete Object überhaupt ein OptionButton ist.
Schönen Gruß,
Andi

Anzeige

25 Forumthreads zu ähnlichen 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
Anzeige
option button auswahl abfragen
Gabriele

hallo liebes forum,
ich verstehe die VBA codes, kann aber leider selbst nichts schreiben..
Ich bräuchte ein Makro dass meine Option buttons abfrägt und dann z.B. in Spalte M eine 1 ausgibt für einen angeklickten button und eine 0 für einen der nicht angeklickt wurde...
meine Option...
21.04.2011 11:00:51
Thread-ID: 1211312
7 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
Anzeige
Mit Formel Status OptionButton abfragen
Manfred
Hallo Excelfreunde,
kann ich auch in einer Zelle mittels Formel den Status eines OptionButton abfragen? Ich stoße immer nur auf VBA Lösungen. Kann bitte einer Helfen.
Mein Versuch klappt allerdings nicht. :(
=WENN(OptionButton1.Visible = True;JAHR(HEUTE()) & "." & E1;JAHR(HEUTE()) & "."...
20.01.2017 16:26:27
Thread-ID: 1536381
8 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
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

Links zu Excel-Dialogen

CommandButton OptionButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
14
4
6
2
2
7
3
5
1
7
4
2
2
3
2
5
1
1
4
7
3
2
3
5
11