CheckBox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: CheckBox
von: mrakliwo
Geschrieben am: 04.11.2003 19:23:48

Hallo,
Ist es moeglich diese Code kurzen????.Geht um 25 CheckBox

Private Sub CheckBox1_change()

Dim CheckBox1 As OLEObject
Dim CheckBox2 As OLEObject
Dim CheckBox3 As OLEObject
Dim CheckBox4 As OLEObject
Dim CheckBox5 As OLEObject
Dim CheckBox6 As OLEObject

If UserFormOP.CheckBox1.Value = True Then
UserFormOP.CheckBox2.Value = False
UserFormOP.CheckBox3.Value = False
UserFormOP.CheckBox4.Value = False
UserFormOP.CheckBox5.Value = False
UserFormOP.CheckBox6.Value = False
Else
If UserFormOP.CheckBox2.Value = True Then
UserFormOP.CheckBox1.Value = False
UserFormOP.CheckBox3.Value = False.......usw

Kann mir da jemand weiter helfen?

Grüße jan

Bild


Betrifft: AW: CheckBox
von: Nepumuk
Geschrieben am: 04.11.2003 19:33:24

Hallo Jan,
bevor ich anfange, die Checkboxen sind in einer Userform? Was sollen dann die Zeilen:
Dim CheckBox1 As OLEObject ? Das sind doch schon Objekte der Userform. Oder täusche ich mich?
Gruß
Nepumuk


Bild


Betrifft: AW: CheckBox
von: mrakliwo
Geschrieben am: 04.11.2003 19:46:30

hallo Nepumuk,

Sorry ,die Checkboxen sind in einer Userform.
Definition "As OLEObject" hab ich aus beispiel makro,
wo ging um pruefung jewals zwei von 6 CheckBoxen.

Grüße jan


Bild


Betrifft: AW: CheckBox
von: Nepumuk
Geschrieben am: 04.11.2003 20:15:56

Hallo Jan,
entferne die Dim - Anweisungen für die Checkboxen. Die sind nicht nur überflüssig, sonder können unter umständen Fehler verursachen. Ich habe dir mal eine Beispielprogramm wie es richtig funktioniert geschrieben: https://www.herber.de/bbs/user/1746.xls
Gruß
Nepumuk


Bild


Betrifft: AW: CheckBox
von: mrakliwo
Geschrieben am: 04.11.2003 20:26:36

Hallo,

Klasse,Vielen Dank Nepumuk.
VBA macht spass.

PS.Was heist "Nepumuk"?? -- niepomug --
-Hast Du mir geholfen oderrr?


Bild

Beiträge aus den Excel-Beispielen zum Thema " CheckBox"