CheckBox+TextBox in Klassenmodul
Arti
ich möchte folgende Code, die gleiche Ereignisse haben, im Klassenmodul vereinfachen. Leider weiss ich nicht, wie das geht.
Das Problem ist, ich habe im meinem UserForm mehr als 20 TextBox.
Ich brauche dringend euere Hilfe,
für jede Lösung oder Idee bin ich sehr dankbar.
Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
TextBox1.Locked = True
Else: TextBox1.Locked = False
End If
End Sub
Private Sub CheckBox2_Change()
If CheckBox2.Value = True Then
TextBox2.Locked = True
Else: TextBox2.Locked = False
End If
End Sub
Private Sub CheckBox3_Change()
If CheckBox3.Value = True Then
TextBox3.Locked = True
Else: TextBox3.Locked = False
End If
End Sub
Private Sub CheckBox4_Change()
If CheckBox4.Value = True Then
TextBox4.Locked = True
Else: TextBox4.Locked = False
End If
End Sub
Private Sub CheckBox5_Change()
If CheckBox5.Value = True Then
TextBox5.Locked = True
Else: TextBox5.Locked = False
End If
End Sub.
. usw.
Grüße,
ASistemo