ich möchte folgende Code im einem Klassenmodul vereinfachen.
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
..Dafür habe ich folgende Syntax erstellt
******************
UserForm1
Private Sub UserForm_Activate()
Dim textB As MSForms.Control
Dim checkB As MSForms.Control
Dim L As Long
L = 1
ReDim chkBox(1 To L)
For Each checkB In Me.Controls
If TypeOf checkB Is MSForms.CheckBox Then
ReDim Preserve chkBox(1 To L)
Set chkBox(L) = New Klasse1
Set chkBox(L).CB = checkB
For Each textB In Me.Controls
If TypeOf textB Is MSForms.TextBox Then
Set chkBox(L).TB = textB
End If
Next
End If
L = L + 1
Next
End Sub
Modul1
Public chkBox() As New Klasse1
*************************
Klassenmodul1 Name:Klasse1
Public WithEvents CB As MSForms.CheckBox
Public WithEvents TB As MSForms.TextBox
Private Sub CB_Change()
TB.Locked = CB.Value
End Sub
leider funktioniert mein Code nur für das letzte TextBox. Ich bin momentan am Verzweifeln und weiss nicht mehr, was ich tun kann.die Datei könnt in folgenden Link sehen
https://www.herber.de/bbs/user/72427.xls
für jede Hilfe bin ich sehr dankbar
Grüße,
Sistemo