AW: Checkbox
06.07.2004 08:34:01
franz
Hallo !
Danke Euch.
Aber die Häckchen werden nicht automatisch in der Userform
bei den Checkbox2 bis Checkbox5 gesetzt,
wenn ich das Häckchen bei Checkbox1 setze.
Ich kann ja mal hier die Userform (code) anzeigen:
Option Explicit
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
Gruss
Franz