Herbers Excel-Forum - das Archiv
Checkboxen automatisch in ganzer Spalte einbauen?!
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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