Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
692to696
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
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Optionsbutton Abfragen

Optionsbutton Abfragen
07.11.2005 17:59:05
Ingo
Hallo!!
Ich weiß nicht wie ich Abfragen kann, welcher Button makiert ist. Ich erstelle in meinem Programm bis zu 36 Buttons.
Sheets("Triggersignal").Select
oben = 30
höhe = 20
breite = 330
erg = 0
I = 0
For I = 0 To 37 Step 1
If Cells(5 + I, 3).Value "" Then
'Hier werden die einzelnen Button erzeugt
Set cmd1 = Me.Controls.Add("Forms.OptionButton.1", "cmd1", True)
With cmd1
.Left = 9
.Top = oben + erg * 20
.Height = höhe
.Width = breite
.Caption = Cells(5 + I, 2).Text
.Font.Size = 10
End With
erg = erg + 1
Else
End If
Next I
So lautet mein Programm zu erstellung der verschiedenen Button. Funktioniert auch. Brauch jetzt nur noch die Abfrage.
MFG Ingo

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Optionsbutton Abfragen
07.11.2005 18:35:57
K.Rola
Hallo,
du gibts jedem Optionbutton denselben Namen, da bekommst du natürlich keine Abfrage hin.
Nummerier die Namen durch.
Gruß K.Rola
AW: Optionsbutton Abfragen
07.11.2005 21:17:52
Ingo
Danke für den Tipp!!!
Aber Kannst du mir auch weiter helfen? Muß ich dann irgendwie ARRAY erstellen? Ich weiß net wie das geht
AW: Optionsbutton Abfragen
07.11.2005 22:58:13
K.Rola
Hallo,
zunächst rate ich dir, Variablen immer zu deklarieren, am besten, indem du
Option Explicit verwendest.
Option Explicit
Private Sub CommandButton1_Click()
Call welcher_ist_TRUE
End Sub
Private Sub UserForm_Click()
Const oben As Double = 30
Const höhe As Double = 20
Const breite As Double = 330
Dim I As Byte, erg As Byte, cmd As Object
For I = 0 To 37
If Cells(5 + I, 3).Value <> "" Then
'Hier werden die einzelnen Button erzeugt       fortlaufender Name
Set cmd = Me.Controls.Add("Forms.OptionButton.1", "cmd" & I, True)
With cmd
.Left = 9
.Top = oben + erg * 20
.Height = höhe
.Width = breite
.Caption = .Name
.Font.Size = 10
End With
erg = erg + 1
End If
Next
End Sub
Sub welcher_ist_TRUE()
Dim c As Control
For Each c In Me.Controls
If c.Name Like "cmd*" Then
If c = True Then
MsgBox c.Name & " ist ausgewählt!"
Exit For
End If
End If
Next
End Sub
Gruß K.Rola

Anzeige
AW: Optionsbutton Abfragen
08.11.2005 16:25:44
Ingo
Super; Danke!!!!
Bin schon ein ganzes STück weiter. Aber bei der Ausgabe, wo du Msgbox... hingeschrieben hast, möchte ich das der Wert in einer Zelle einer Tabelle geschrieben wird.
Außerdem stand bei mir unter ".caption" = cells(..,..) und nicht ".name" Ich weiß nicht ob es daran liegt, das es bei mir nicht klappt.
Ich hab die if Anweisung folgendermaßen geändert. funktioniert aber nicht.
If c.cells(5,4) Like "cmd*" Then
If c = True Then
Set c = Worksheets("Triggersignal").Range("G14")
Exit For
End If
Nochmals Danke für die Hilfe!!!
AW: Optionsbutton Abfragen ?
09.11.2005 02:23:27
Luc:-?
Hallo Ingo,
Bin schon ein ganzes STück weiter. Aber bei der Ausgabe, wo du Msgbox... hingeschrieben hast, möchte ich das der Wert in einer Zelle einer Tabelle geschrieben wird. Schön, aber warum schreibst du dann Set c = Worksheets("Triggersignal").Range("G14")? Damit weist du der Laufvariablen, die ein Steuerelement repräsentiert, einen Bereich zu! Wie soll das wohl fkt? Nach deiner Aussage willst du doch wohl True oder den Namen des ausgewählten Buttons in diese Zelle eintragen?! Also wäre hier doch eher Worksheets("Triggersignal").Range("G14").Value = c.Name angebracht!
Gruß Luc ;-?
Anzeige

96 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.Value
Nico

Holá,ich habe drei OptionButton(s) zu einer Gruppe zusammengefügt. Nun möchte ich entsprechend des aktivierten OptionButtons ein FormField im Text mit dem Value ausfüllen. Geht das nur mit SelectCase ? Oder gibt es vielleicht eine Möglichkeit den jeweils aktivierten Button über die Gruppenzugeh...
10.03.2003 09:46:49
Thread-ID: 229804
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
3
1
1
4
2
7
4
2
3
5