Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CheckBox

CheckBox
04.11.2003 19:23:48
mrakliwo
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CheckBox
04.11.2003 19:33:24
Nepumuk
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
AW: CheckBox
04.11.2003 19:46:30
mrakliwo
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
AW: CheckBox
04.11.2003 20:15:56
Nepumuk
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
Anzeige
AW: CheckBox
04.11.2003 20:26:36
mrakliwo
Hallo,

Klasse,Vielen Dank Nepumuk.
VBA macht spass.

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige