Das Archiv des Excel-Forums

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 

Gruss Rainer




Betrifft: AW: Optionbutton True abfragen
von: Vedat

Geschrieben am: 21.09.2003 12:47:49

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




Betrifft: AW: Optionbutton True abfragen
von: Ramses
Geschrieben am: 21.09.2003 13:05:46

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

Excel-Beispiele zum Thema " Optionbutton True abfragen"

Zelleintrag durch OptionButton-Betätigung ein- und ausschalten		Auflisten von OptionButtons in Kontextmenü
Werte von OptionButtons aus 2 Gruppen auslesen		Unterdrückung von Sicherheitsabfragen
Name der aufrufenden Schaltfläche abfragen		Anzahl der einzufügenden Zeilen abfragen
Start- und Enddatum abfragen und markieren		Passwort vergeben und bei CheckBox-Aktivität abfragen
Werte von CheckBoxes in einer UserForm abfragen		Mit InputBoxes Zeilennummern abfragen und Summe bilden
Suchbegriff über InputBox abfragen und Fundzeile löschen		Druckstart- und endzeilen über InputBox abfragen
Beim Öffnen der Arbeitsmappe Passwort abfragen		Suchbegriff abfragen und Fundzeile in UserForm-TextBoxes
Suchbegriff abfragen und Fundzeile markieren		DNS und IP abfragen
Zeit über InputBox abfragen, dividieren und zurückgeben		Autofilterkriterium abfragen und filtern