Ich habe eine CheckBox unter dieser stehen 6 optionsfelder.
Nur wenn ich nun die CheckBox ankreuze, soll das erste optionsfeld ebenso angekreuzt werden, ansonsten soll alles leer bleiben.
Danke.
Option Explicit
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
OptionButton1 = True
Else
OptionButton1 = False
End If
OptionButton2 = False
OptionButton3 = False
OptionButton4 = False
OptionButton5 = False
OptionButton6 = False
End Sub
Gruß