MAkro kürzen ?
24.10.2004 10:48:44
walter
kann man folgende Anweisungen kürzen, da ich diese in weiteren 2 CheckBoxen
zum durchführen kopieren muß ?
'----------------- ab hier ausblenden ------------------------------
If CheckBox2.Value = False And CheckBox5.Value = False And CheckBox9.Value = False Then
CheckBox16.Value = False
CheckBox16.BackColor = Me.BackColor
CheckBox16.Enabled = False
Else
CheckBox16.Enabled = True
End If
'----------------------------
If CheckBox2.Value = False Then Label7.Enabled = False
If CheckBox2.Value = False Then TextBox24.Enabled = False
If CheckBox2.Value = False Then TextBox24.BackColor = Me.BackColor
If CheckBox2.Value = False Then TextBox24.Enabled = False
If CheckBox2.Value = True Then Label7.Enabled = True
If CheckBox2.Value = True Then TextBox24.Enabled = True
If CheckBox2.Value = True Then TextBox24.BackColor = vbWhite
If CheckBox2.Value = False Then Label34.Enabled = False
If CheckBox2.Value = False Then TextBox18.Enabled = False
If CheckBox2.Value = False Then TextBox18.BackColor = Me.BackColor
If CheckBox2.Value = False Then TextBox18.Enabled = False
If CheckBox2.Value = True Then Label34.Enabled = True
If CheckBox2.Value = True Then TextBox18.Enabled = True
If CheckBox2.Value = True Then TextBox18.BackColor = vbWhite
'-------------------------------------------------------------------
Gruß Walter