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