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?!"