Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1220to1224
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellschutz + ActiveX-Elemente

Zellschutz + ActiveX-Elemente
max
Hallo Excel-Kollegen,
ich habe eine Checkliste in einem Tabellenblatt erstellt mit vielen ActiveX-Steuer-Elementen (CheckBox) und jeweils einem Tabellenfeld ohne Zellschutz (für erledigtDatum).
Kann mir jemand helfen, über ein Makro am Monatsende die ungeschützen Felder zu leeren und die ActiveX-Elemente auf Wert "False" zu setzen. Checkboxen und Datumsfelder sind quer über das Tab-Blatt verteilt.
Schon mal vorab Dank an alle Hilfsbereiten.
Gruß
max

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellschutz + ActiveX-Elemente
14.07.2011 10:18:24
Beverly
Hi Max,
meinst du das so
Sub Zuruecksetzen()
Dim rngZelle As Range
Dim chbElement As OLEObject
For Each rngZelle In ActiveSheet.UsedRange
If rngZelle.Locked = False Then rngZelle.ClearContents
Next rngZelle
For Each chbElement In ActiveSheet.OLEObjects
If chbElement.progID = "Forms.CheckBox.1" Then chbElement.Object = False
Next chbElement
End Sub



AW: Zellschutz + ActiveX-Elemente
15.07.2011 10:27:55
max
Hallo Karin,
genau das war´s. Tut mir leid für die späte Rückmeldung. Danke Dir.
Gruß
max
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige