Script für Checkbox-Abfrage
12.01.2005 09:03:48
Oliver
ich habe im Archiv folgendes Script gefunden, komme damit aber leider nicht ganz zurecht.
Re: Checkbox in Multipage/Userform
Hallo,
eine Userform mit drei Checkboxen:
Private Sub UserForm_Initialize()
Set cCheck(1).checkBox = Me.Controls("CheckBox1")
Set cCheck(2).checkBox = Me.Controls("CheckBox2")
Set cCheck(3).checkBox = Me.Controls("CheckBox3")
End Sub
eine Klassendatei mit dem Namen clsCheck:
Public WithEvents checkBox As MSForms.checkBox
Private Sub checkBox_Change()
MsgBox checkBox.Name
End Sub
ein Modul:
Public cCheck(3) As New clsCheck
Gruß
Micha
Meine Fragen dazu:
1) Muss "Private Sub checkBox_Change()" auch in die Klassendatei?
2) Wohin muss das Modul Public cCheck(3) und wie muss das heißen?
3) Funktioniert das ganze auch unter Word 2000 ?
Im voraus schon mal vielen Dank für die Hilfe.
Grüße
Oliver K.
Anzeige