HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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
Benutzer
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
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

Meistgelesene Forumthreads (12 Monate)

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