Excel Checkbox in Cell

Hi DannyBerg!

There is an option to insert it in the cell itself but it is done manually (like you have to draw it like a rectangular shape).

To add a check box, click the Developer tab, click Insert, and under Form Controls, or active X control> click the check box.
>Click in the cell where you want to add the check box, draw a rectangular shape in the cell and the check box will appear.

To edit the size,
Right-click on the check box and click on the format control> click on the sidebar, then edit the size to what you want.

Tips: You can edit the height and width of the cells to make the Check box fit in more perfectly.

References: https://support.microsoft.com/office/9f201e46-8f6b-4a9d-a320-f44b28088cb0

Kind Regards,
Shakiru

Irgendwie funktioniert das nicht. Der Code sieht derzeit so aus:
Set myForm = ThisWorkbook.VBProject.VBComponents.Add(3)
Do
object_type = Cells(row_is, col_Type)
Select Case object_type
Case "CheckBox"
Set object_is = myForm.Designer.Controls.Add("Forms.CheckBox.1")
object_is.Left = Cells(row_is, col_Left)
.....
Case "CommandButton"
Set object_is = myForm.Designer.Controls.Add("Forms.CommandButton.1")
object_is.Left = Cells(row_is, col_Left)
.....
Case "RefEdit"
Set object_is =myForm.Controls.Add("Forms.RefEdit.1")
object_is.Left = Cells(row_is, col_Left)
.....
Bei Set object_is =myForm.Controls.Add("Forms.RefEdit.1") kommt die Meldung
"Objekt unterstützt diese eigenschaft oder Methode nicht"
wo klemmt es?

Hallo Lisa,

bei Mac ist es ähnlich. Auch hier bietet Word die "globale" Option und unter Excel eine arbeitsmappen-bezogene Lösung an.

Der Weg bei Excel ist ebenfalls über Speichern unter -> Optionen, allerdings fehlt schlicht die Checkbox.

ich habe ein Problem mit Microsoft Word 2007.

Tja, da hast Du ein Problem, damit geht das (bei mir) leider nicht.

In 2007 gibt es zwar schon die Automation Property, aber diese funktioniert leider nicht. Ab 2010 gibt diese das Range-Objekt zurück in dem sich die Checkbox befindet, da würde der Code unten gehen...

Kannst ja trotzdem mal probieren, vielleicht hast Du Glück und es geht mittlerweile.

Das letzte Update das ich bei 2007 installiert habe ist schon ewig her.

Andreas.

Option Explicit

Private Sub CheckBox_Click(ByVal CB As MSForms.CheckBox)

'Universell für jede CheckBox

Dim ThisCell As Cell

'In jeder Zelle in dieser Zeile

For Each ThisCell In CB.Automation.Range.Rows(1).Cells

With ThisCell

'Texture setzen

.Shading.Texture = wdTextureNone

'Farbe setzen wenn Haken gesetzt

.Shading.BackgroundPatternColor = IIf(CB.Value, -603930625, wdColorAutomatic)

End With

Next

End Sub

Private Sub CheckBox1_Click()

CheckBox_Click Me.CheckBox1

End Sub

Private Sub CheckBox2_Click()

CheckBox_Click Me.CheckBox2

End Sub

Danke für die Antwort. Also ich finde keine Hardwaregrafikbeschleunigung in den erweiterten Excel Optionen.

Hochladen kann ich es leider nicht weil viele Inhalte drinnen sind die ich nicht öffentlich zeigen darf.

Gruppieren von den Zellen? und kann ich das dann auch über die Checkboxen ein-/ausblenden?