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