Frage:
Hat jemand ein Beispiel oder Ansatz für Folgendes...
In einer Userform sind 6 Checkboxen.
Es sollte folgendes passieren:
Wenn Checkbox1_Click ein Häkchen bekommt,
sollen alle restlichen Checkboxen ein Häkchen bekommen.
Gruss
Franz
Private Sub CheckBox1_Click()
Dim intI As Integer
For intI = 1 To 6
Me.Controls("CheckBox" & intI).Value = CheckBox1.Value
Next intI
End Sub
Private Sub CheckBox1_Click()
V5 = CheckBox1
End Sub
Private Sub CheckBox2_Click()
V6 = CheckBox2
End Sub
Private Sub CheckBox3_Click()
V7 = CheckBox3
End Sub
Private Sub CheckBox4_Click()
V8 = CheckBox4
End Sub
Private Sub CheckBox5_Click()
V9 = CheckBox5
End Sub
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub ComboBox1_Change()
Jahr = ComboBox1
End Sub
Private Sub ComboBox2_Change()
lstrInputName = ComboBox2
End Sub
Private Sub ComboBox4_Change()
TestOriginal = ComboBox4
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
Jahr = 0
For i = 1 To 2
ComboBox1.AddItem 2003 + i
Next
Dim intI As Integer
For intI = 1 To 5
Me.Controls("CheckBox" & intI).Value = CheckBox1.Value
Next intI
lstrInputName = ""
TestOriginal = ""
V5 = False
V6 = False
V7 = False
V8 = False
V9 = False
With ComboBox2
.AddItem "ABC"
.AddItem "DEF"
.AddItem "GHI"
End With
With ComboBox4
.AddItem "Test"
.AddItem "Original"
End With
End Sub
Private Sub CheckBox1_Click()
Dim intI As Integer
V5 = CheckBox1
For intI = 1 To 6
Me.Controls("CheckBox" & intI).Value = CheckBox1.Value
Next intI
End Sub