Code Optimierung?
17.10.2020 17:39:45
Matthias
Kann ich den folgenden Code optimieren, oder muß er so lang sein?
Private Sub CheckBox123_Click()
If CheckBox123.Value = True Then
CheckBox125.Value = True
CheckBox129.Value = True
CheckBox133.Value = True
CheckBox137.Value = True
CheckBox141.Value = True
CheckBox145.Value = True
CheckBox149.Value = True
CheckBox153.Value = True
End If
End Sub
Ich habe sehr viele solche Boxen anzusprechen, vielleicht geht es ja besser?
Gruß M@tt