Ich habe auf meinem Tabellenblatt mehrere OptionButton, von denen einige mit einem CommandButton angesprochen werden sollen.
Nach mehreren Versuchen bin ich am verzweifeln, da kein Quelltext funktioniert!!!
Hier mein Code:
Private Sub CB_Abwesend_Click()
Dim i As Integer
For i = 2 To 198 Step 3
Me.Shaps("OptionButton" & i).Value = True
Next i
End Sub
Vielen Dank...