Optionbutton Schleife

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Optionbutton Schleife
von: Lisa
Geschrieben am: 11.05.2015 13:10:46

Hallo zusammen, mir fehlt, mal wieder, ein Ansatz um mein Problem zu lösen.
In eine UF sind zwei OptionButton in einem Frame, die ich auf "Wahr" oder "Falsch" prüfe.
Nun möchte ich, wenn ein OptionButton = "Wahr" ist die Beschriftung (.Caption) in eine Zelle schreiben.
Weiß jemand wie ich das mit meinem Ansatz hinbekomme und mir dabei helfen?
Hier mein Ansatz:
Dim intIndex As Integer
For intIndex = 1 To 2
If Me.Controls("OptionButton" & CStr(intIndex)).Value = True Then
With Sheets(11)
.Unprotect
.Cells(37, 13) = 'OptionButton.Caption je nach dem welcher wahr ist
.Protect
End With

End If
Next
LG Lisa

Bild

Betrifft: AW: Optionbutton Schleife
von: Nepumuk
Geschrieben am: 11.05.2015 13:23:30
Hallo,
so ok?

Dim intIndex As Integer
Dim strCaption
For intIndex = 1 To 2
    With Controls("OptionButton" & CStr(intIndex))
        If .Value Then strCaption = .Caption
    End With
Next
With Sheets(11)
    .Unprotect
    .Cells(37, 13).Value = strCaption
    .Protect
End With

Gruß
Nepumuk

Bild

Betrifft: AW: o.T. Perfekt, vielen Dank
von: Lisa
Geschrieben am: 11.05.2015 13:38:03


Bild

Betrifft: AW: Optionbutton Schleife
von: Daniel
Geschrieben am: 11.05.2015 14:36:10
Hi
lösche den Frame und die Optionbuttons und ersetze sie durch eine Listbox.
(auch eine Listbox kann über die Eigenschaften wie eine Optionbuttongruppe aussehen lassen)
Schreibe die Eigenschaft "ControlSource" der Listbox die Addresse der Ausgabezelle.
Gruß Daniel

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Optionbutton Schleife"