Checkboxen automatisch in ganzer Spalte einbauen?!

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

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!

Bild


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


Bild


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... ;)


Bild


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


Bild


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


Bild


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


Bild


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


Bild


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


 Bild

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