wie ändern bei freigegebener Mappe ?
20.04.2008 17:10:45
Wolfgang
der nachstehende Code soll bewirken, in 14 Kontrollkästchen des Tabellenblattes Matrix (Tabelle1) das Häkchen zu entfernen. Ist die Arbeitsmappe nicht freigegeben, funktioniert er auch soweit. Wird die Mappe freigegeben (was ich im Rahmen der Vernetzung vorhabe) erscheint eine Fehlermeldung, dass die Default Eigenschaft des CheckBox-Objektes nicht festgelegt werden kann. Was kann ich verändern oder gibt es einen anderen Code der bei freigegebener Arbeitsmappe gleiches bewirkt? - Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Sub alle_aus() 'für CB aus Formular Symbolleiste
Dim TB, CB As CheckBox
For Each TB In Array(Sheets(1))
For Each CB In TB.CheckBoxes
CB = False
Next
Next
End Sub