Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Viele Checkboxen viel arbeit

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
Anzeige
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
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige