Viele Checkboxen viel arbeit

Forumthread: Viele Checkboxen viel arbeit

02.01.2004 23:47:13

Dave

Guten abend allerseits

So sieht der Code aus:
************************************************


Private Sub CheckBox1_Click()
If CheckBox1 = True Then Cells(12, 18) = 1
If CheckBox1 = False Then Cells(12, 18) = ""
End Sub

************************************************

Jetz habe ich aber 200 Checkboxen
Wie mache ich das ohne diese Zeilen 200x zu kopieren
und die Zeilen um eins nach unten zu korrigieren!

Ich bekomme sonst einen wussel nach Checkbox5 hatte ich schon keine lust mehr ..
Bitte helft mir :-)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Viele Checkboxen viel arbeit

03.01.2004 00:01:50

Josef Ehrensberger
AW: Viele Checkboxen viel arbeit

03.01.2004 00:19:48

Dave
AW: Viele Checkboxen viel arbeit

03.01.2004 00:34:59

Josef Ehrensberger
AW: Viele Checkboxen viel arbeit

03.01.2004 00:38:16

dave
nein kann man nicht! o.T.

03.01.2004 00:41:37

Josef Ehrensberger
oder doch

03.01.2004 01:10:27

Josef Ehrensberger

AW: Viele Checkboxen viel arbeit

03.01.2004 00:01:50

Josef Ehrensberger

Hi Dave,

wenn es sich um Checkboxen in der Tabelle handelt,
kannst Du doch mit der LinkedCell Eigenschaft
direkt eine Zelle ansprechen!

Gruß Sepp

AW: Viele Checkboxen viel arbeit

03.01.2004 00:19:48

Dave

ehm und wie mache ich das ganze? kannst du mir ein Beispiel dafür geben?

AW: Viele Checkboxen viel arbeit

03.01.2004 00:34:59

Josef Ehrensberger

Hi dave,

Klick im Bearbeitungsmodus (Symbol mit dem Geo-Dreieck)
mit der rechten Maustaste auf die Checkbox und wähle
Eigenschaften.
Im Eigenschaftenfenster suchst Du den Eintrag "LinkedCell"
und bigst dort die gewünschte Zelle (z.B. A1) an. Enter > fertig.

Gruß Sepp

AW: Viele Checkboxen viel arbeit

03.01.2004 00:38:16

dave

besten besten dank :))
war erst zu doof

mhh ist zwar jetz immer noch ziemlich viel arbeit
weil ich das ja jetzt bei allen 200 st reinschreiben muss
aber das kann man wahrscheinlich nicht ändern

Mfg dave

nein kann man nicht! o.T.

03.01.2004 00:41:37

Josef Ehrensberger

oder doch

03.01.2004 01:10:27

Josef Ehrensberger

Hallo Dave,

geht doch, aber nur wenn die CheckBoxen der reihe nach
auf die zellen einer Spalte zugreifen.

Kopiere diesen Code in ein Modul und lass in lauffen!

Private Sub cmdChb_Click()
Dim objO As OLEObject
Dim intC As Integer
intC = 12
For Each objO In OLEObjects
If TypeName(objO.Object) = "CheckBox" Then
objO.LinkedCell = "R" & intC
intC = intC + 1
End If
Next oOle
End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Die Zuordnung beginnt bei Zelle "R12", wenn das nicht stimmt,
dann musst Du es anpassen!

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Forumthread: Viele Checkboxen viel arbeit

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread