Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1340to1344
1340to1344
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Formular - Zugriff auf Optionsfelder in Gruppe

Forumthread: VBA Formular - Zugriff auf Optionsfelder in Gruppe

VBA Formular - Zugriff auf Optionsfelder in Gruppe
10.12.2013 10:59:20
Doof
Hallo,
programmiere gerade Formulare in VBA für Access (nehme mal an dass die Formularprogrammierung dabei keinen grossen Unterschied macht zu Excel).
Ich habe eine Optionsgruppe und da drin 4 Optionsfelder. Ich möchte
1.)
Die Namen der Optionsfelder durch direkten Zugriff herausfinden, ohne dass ich im Code Wissen über den Namen oder andere spezielle Eigenschaften des Optionsfeldes haben muss.
Ich stelle mir das irgendwie so vor: 

For i=0 To .Controls.Count -1
Debug.Print ( .Controls.Items(i).Caption )
Next

So stelle ich mir das vor. Aber es geht nicht. Kann jemand helfen?
2.)
Auf ähnliche Weise wie 1.) den Namen des aktiven Optionsfeldes herausfinden. Wie geht das?
Grüße,
doofnuss

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Formular - Zugriff auf Optionsfelder in Gruppe
11.12.2013 14:05:27
fcs
Hallo doofnuss,
etwa so sollte es funktionieren. Zumindest in einem Excel-UF tut's.
Sinnvoller Weise plazierst du die Optionsschaltflächen in einem Frame-Element, dann musst du nur die Elemente des Frames prüfen.
Gruß
Franz 
Private Sub CommandButton1_Click()
Dim objControl As Control
Dim strOption As String
With Me.Frame1
'    With Me
For i = 0 To .Controls.Count - 1
Set objControl = .Controls(i)
If VBA.TypeName(objControl) = "OptionButton" Then
strOption = objControl.Caption
MsgBox "i = " & i & vbLf & "Name = " & .Controls(i).Name _
& vbLf & "Caption = " & strOption, vbOKOnly, _
"Info zu Options-Schaltflächen"
End If
Next
End With
With Me.Frame1
'    With Me
strOption = ""
For i = 0 To .Controls.Count - 1
Set objControl = .Controls(i)
If VBA.TypeName(objControl) = "OptionButton" Then
If objControl.Object.Value = True Then
strOption = objControl.Caption
MsgBox "gewählte Option: " & strOption, vbOKOnly, "Gewählte Option"
Exit For
End If
End If
Next
If strOption = "" Then
MsgBox "es wurde keine der Optionen gewählt!"
End If
End With
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Register der Multifunktionsleiste per VBA aktivier
Günther

Hallo!
Ich würde gerne per VBA das aktive Register der Multifunktionsleiste verändern (konkret: das Register Add-Ins aktivieren, damit dessen Inhalte im Vordergrund sichtbar werden).
Kennt jemand den entsprechenden Befehl? Wenn ja, mir bitte kurz mitteilen.
Herzlichen Dank im Voraus...
23.11.2008 17:51:53
Thread-ID: 1027119
4 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
Anzeige
VBA code für automatischen Rechts-Shift
Markus

Hallo Zusammen,
hat jemand eine Idee für einen VBA code zu folgendem Problem
(siehe https://www.herber.de/bbs/user/61304.xls)
:
In Spalte S finden sich verschiedene Werte. Die Spalte S soll nun durchsucht werden. Wenn in der Zelle EUR steht, dann soll dann soll wenn dies z.B. Z...
20.04.2009 11:05:39
Thread-ID: 1069746
3 Beiträge
VBA Laufschrift: Zeitgrenze definieren
dieter(drummer)

Excle/VBA SoLaLa
Hi VBA Profis,
habe aus dem Forum folgendes Makro in meiner Arbeitsmappe, Modul2. Es bewirkt, das in der aktiven Tabelle, hier TAB4, in Zelle B5 eine vorhandener Text als Laufschrift abläuft.
Makro (Verfasser hatte ich leider nicht notiert):
Declare Sub Sleep...
23.10.2009 16:56:17
Thread-ID: 1111654
3 Beiträge
Range Bezüge in VBA von fix auf relativ umstellen
fix

Hallo Herber Fans,
ich ermittle einen Range:
Set rgGPTMember_Source = Intersect(rgGPTMemberAugmentation.Rows(1).Find("GPT Member", LookIn:=xlValues, LookAt:=xlWhole).EntireColumn, rgGPTMemberAugmentation)
Dessen Adresse lautet dann: $G$5:$G$34
Dieser Range wird nun in eine Namen...
07.01.2010 21:06:12
Thread-ID: 1128031
7 Beiträge
VBA Schleife mit Bedingung
Benjamino

Hallo zusammen,
bin ein blutiger VBA-Neuling und versuche bislang erfolglos mein Problem zu lösen. Wäre unendlich dankbar, wenn mir jemand weiterhelfen könnte.
Das unten stehende Makro "Makro2" soll solange durchlaufen werden, bis in der Spalte A im Sheet "Readme" keine befüllte Zellen...
20.03.2010 23:25:52
Thread-ID: 1147311
5 Beiträge
Anzeige
VBA If-Fkt mit Teilstring
Jonathan

Hallo liebe Experten,
ich bekomme es einfach nicht hin...
Ausgangssituation:
2 Dateien mit Adressdaten (1 Zeile A-H) enstpricht einer Adresse.
Jede Adresse hat in Spalte A eine Adressnummer, quasi als Primärschlüssel
Folgender Code vergleicht die Datei "Freizeitliste_XY500.x...
13.05.2010 14:52:18
Thread-ID: 1156910
7 Beiträge
Mit VBA Zugriff auf ein pdf-Dokument
Gregor

Hallo zusammen
Ich möchte in einer Excel Tabelle aus einem pdf Vornamen und Namen kopieren. Dabei muss ich in einem e-Book (pdf) nach dem Begriff "Erstellerautor" suchen, und dann die jeweiligen Namen NACH diesem Suchgegriff kopieren und in einer Excel-Tabelle einfügen. Das e-Book ist alpha...
18.08.2010 16:48:01
Thread-ID: 1172920
3 Beiträge
VBA: If-Fkt mit Teilstring - Daten aktualisieren
Joe

Hallo liebe Experten,
ich stehe mal wieder vor einer Hürde, bei der ich eure Hilfe bräuchte.
Folgender Code sucht in einer Adressdatei (adressen.xls) nach einer Nummer (Spalte Q). Diese Nummer steht in einer Zelle in welcher noch weitere, durch Komme getrennte, Nummern stehen können.
24.08.2010 13:10:36
Thread-ID: 1173865
2 Beiträge
If ActiveWorkbook.Name <> ThisWorkbook.Name Then E
Heinz

Hallo Leute
Hatte im Jänner im Forum angefragt.
Habe einen Schichtplan mit vielen Makros, und Protect mit Passort.
Wenn ich in der Firma den Schichtplan öffne UND eine andere Exceltabelle öffne,das dort auch der Blattschutz reinkommt.
Warum ?
Nun hatte ich einen Lösungsvorsc...
10.03.2011 12:48:10
Thread-ID: 1205143
6 Beiträge
Anzeige
VBA Schleife Farbhintergrund setzen
Dieter(Drummer)

Hi VBA Spezislisten,
suche ein VBA Lösung: Der Bereich ist A4 bis AH34! Ab der aktiven Zelle sollen 3 Zellen BLAU, die nächsten 3 ROT und die nächsten 3 GRÜN Hintergrund gefärbt werden. Dann wieder mit ROT usw. beginnen. Dies soll sich max. bis Zeile 34 der aktiven Spalte wiederholen.
D...
27.04.2011 12:53:49
Thread-ID: 1211980
14 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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