Hallo zusammen,
ich muss eine Liste von Tätigkeiten abarbeiten und würde gerne in Excel eine Spalte mit Checkboxen haben, die ich nur anklicken muss, damit dann ein Häckchen erscheint, als zeichen dafür ,dass die Tätigkeit erledigt ist. Habe auch schon die Checkbox gefunden (Ansicht - Symbolleisten - Steuerelement-Tool), aber ich bekomme es nicht hin, dass ein häkchen erscheint, wenn ich es anklicke. Es liegt eher wie eine Grafik auf der Zelle und ich kann auch nicht die ganze Spalte automatisch mit diesen checkboxen ausfüllen. Leider kenne ich mich mit VisualBasic nicht aus und da muss wohl was eingegeben werden?
ich muss eine Liste von Tätigkeiten abarbeiten und würde gerne
in Excel eine Spalte mit Checkboxen haben, die ich nur
anklicken muss, damit dann ein Häckchen erscheint, als zeichen
dafür ,dass die Tätigkeit erledigt ist. Habe auch schon die
Checkbox gefunden (Ansicht - Symbolleisten -
Steuerelement-Tool), aber ich bekomme es nicht hin, dass ein
häkchen erscheint, wenn ich es anklicke. Es liegt eher wie
eine Grafik auf der Zelle und ich kann auch nicht die ganze
Spalte automatisch mit diesen checkboxen ausfüllen. Leider
kenne ich mich mit VisualBasic nicht aus und da muss wohl was
eingegeben werden?
Hi Jeanne,
Alt+F11, Einfügen–Modul, Code reinkopieren, Editor schließen.
Makro Kontroll ausführen mittels Extras–Makro–Makro…
Oder mittels Ansicht–Symbolleisten–Formular–Schaltfläche…Makro zuweisen.
Um was am Code zu ändern, Alt+F11, Dopelklick auf „Modul1“
Die Größe des reinen Kontrollkästchens ist nicht veränderbar, Größenangaben beziehen sich auf das gesamte Objekt.
Option Explicit
'
Sub Kontroll()
Dim CB As Object, Zeile As Long
Dim Links, Hoehe, Oben, Breite
For Each CB In ActiveSheet.Shapes
If CB.Name Like "Check\*" Then CB.Delete
Next CB
Breite = 50
Hoehe = 17
For Zeile = 1 To 20
Links = Range("E1").Left + 5
Oben = Range("E" & Zeile).Top
Set CB = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, \_
DisplayAsIcon:=False, Left:=Links, Top:=Oben, Width:=Breite, Height:= \_
Hoehe)
With CB.Object
.Caption = "Erledigt"
End With
Next Zeile
End Sub
Gruß
Reinhard