Checkboxen automatisch in ganzer Spalte einbauen?!

• Checkboxen automatisch in ganzer Spalte einbauen?! von micel vom 24.03.2005 14:36:44
• Lösungsansatz... - von Philipp am 24.03.2005 14:45:55
  • AW: Lösungsansatz... - von micel am 24.03.2005 15:39:11
    • AW: Lösungsansatz... - von K.Rola am 24.03.2005 16:03:56
      • AW: Lösungsansatz... - von micel am 24.03.2005 16:17:55
        • For Each cb In OLEObjects - von ransi am 24.03.2005 16:50:05
          • AW: For Each cb In OLEObjects - von K.Rola am 24.03.2005 17:48:01
            • AW: For Each cb In OLEObjects - von micel am 29.03.2005 13:47:18

Betrifft: Checkboxen automatisch in ganzer Spalte einbauen?! von: micel
Geschrieben am: 24.03.2005 14:36:44

Mal wieder die Checkboxen.

Ich müsste 3000 per Hand einbinden, dass kann es ja nicht sein...

Gibt es da einen VBA Script, der eine ganze Spalte damit pflastert und eventuell die LinkedCell auch noch fortlaufend bennent?

Thx!

Betrifft: Lösungsansatz... von: Philipp
Geschrieben am: 24.03.2005 14:45:55

Eine Spalte kannst du doch einfach mit CheckBoxes ausfüllen, also mit Strg+U bzw. mit der Maus runterziehen.

Zu dem anderen: Vielleicht mal mit dem Makrorekorder probieren...




Betrifft: AW: Lösungsansatz... von: micel
Geschrieben am: 24.03.2005 15:39:11

Soweit so gut, Strg-U klappt einwandfrei, danke erstmal.

Nur das Problem mit der Linkedcell bleibt.
Die wird leider nicht fortlaufend aktuallisiert wie bei formeln etc.

Gibts da noch nen kniff?

Kann ja nicht jede Checkbox in den Eigenschaften verändern, dann sitze ich übermorgen noch hier... ;)




Betrifft: AW: Lösungsansatz... von: K.Rola
Geschrieben am: 24.03.2005 16:03:56

Hallo,

welche soll die LinkedCell sein,immer im selben Verhältnis?
Checkbox aus Formular oder Toolbox?

Gruß K.Rola




Betrifft: AW: Lösungsansatz... von: micel
Geschrieben am: 24.03.2005 16:17:55

Jepp, die Linked Cell ist eine Spalte weiter rechts und steht im selben Verhältnis.

Bsp.: F5 Checkbox zur G5 Linkedcell mit Ausgabe Wahr oder Falsch

Die Checkbox stammt aus der Steuerelemente-Toolbox.

Gruß und Dank

Micha




Betrifft: For Each cb In OLEObjects von: ransi
Geschrieben am: 24.03.2005 16:50:05

hallo micel

erstell dein blatt und lass diesen code mal durchlaufen.

Public

Sub alle()
Dim cb As OLEObject
For Each cb In OLEObjects
    If cb.progID = "Forms.CheckBox.1" Then
        cb.LinkedCell = cb.TopLeftCell.Offset(0, 1).Address
        'MsgBox cb.LinkedCell
    End If
Next
End Sub

das könnte es dann schon gewesen sein.
der code muss in das tabellenblatt in dem die boxen sind.
ransi




Betrifft: AW: For Each cb In OLEObjects von: K.Rola
Geschrieben am: 24.03.2005 17:48:01

Hallo,

Kleinigkeit fehlt:

Sub alle()
Dim cb As OLEObject
For Each cb In ActiveSheet.OLEObjects
    If cb.progID = "Forms.CheckBox.1" Then
        cb.LinkedCell = cb.TopLeftCell.Offset(0, 1).Address
        'MsgBox cb.LinkedCell
    End If
Next
End Sub

Gruß K.Rola




Betrifft: AW: For Each cb In OLEObjects von: micel
Geschrieben am: 29.03.2005 13:47:18

Tausend Dank allen Beteiligten!

Der Code funktioniert super!

Gruß
Micel

Beiträge aus den Excel-Beispielen zum Thema "Checkboxen automatisch in ganzer Spalte einbauen?!"