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

Optionbutton True abfragen

Optionbutton True abfragen
21.09.2003 12:01:49
Vedat
Hallo Vba profis

Ich habe auf einer Userform auf mehrere Frams mehrere Optionbuttons. Ich möchte gern eine Abfrage durchführen, der Alle optionbutton durchgeht und mir die Werte ausgibt. Leider habe ich nicht geschafft :(

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

Betreff
Datum
Anwender
Anzeige
AW: Optionbutton True abfragen
21.09.2003 12:35:05
Ramses
Hallo


Private Sub CommandButton6_Click()
'Achtung
'Vergleich scheint Case Sensitiv zu sein !!
'Optionbutton wird nicht erkannt
'OptionButton dagegen schon
Dim i As Integer
Dim cb As Control
i = 0
For Each cb In Me.Controls
    If TypeName(cb) = "OptionButton" Then
        If cb.Value = True Then
            i = i + 1
        End If
    End If
Next
MsgBox "Optionbutton: " & i & " mit WAHR"
End Sub 
     Code eingefügt mit Syntaxhighlighter 1.16




Gruss Rainer
Anzeige
AW: Optionbutton True abfragen
21.09.2003 12:47:49
Vedat
Danke Ramses

Dein Code hat mir geholfen, aber wie kann ich alle "Optionbutton.Caption" die True sind aufuliesten. Weil ich dann die Werte ins Excel übertragen muss. Danke im Voraus
AW: Optionbutton True abfragen
21.09.2003 13:05:46
Ramses
Hallo

z.B. mit

If cb.Value = True Then
x = cb.Caption
End If

zum übertragen, das wird wohl die nächste Frage sein :-(,

If cb.Value = True Then
Worksheets("Tabelle1").Range("A" & Range("A65536").End(xlup).Row +1 ) = cb.Caption
End If

Gruss Rainer

28 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige