Kontrollkästchen deaktvieren mit Makro
11.03.2005 09:44:10
Alex
habe zwei Tabellenblätter mit mit acht kontrollkästchen. Jetzt möchte ich gerne per makro erreichen das er mir per knopfdruck die kästchen deaktiviert.
Habe folgenden Makro aufgezechnet
Sub Makro8()
ActiveSheet.Shapes("Check Box 30").Select
ActiveSheet.Shapes.Range(Array("Check Box 30", "Check Box 31")).Select
ActiveSheet.Shapes.Range(Array("Check Box 30", "Check Box 31", "Check Box 25")) _
.Select
ActiveSheet.Shapes.Range(Array("Check Box 30", "Check Box 31", "Check Box 25", _
"Check Box 24")).Select
ActiveSheet.Shapes.Range(Array("Check Box 30", "Check Box 31", "Check Box 25", _
"Check Box 24" _
, "Check Box 26")).Select
ActiveSheet.Shapes.Range(Array("Check Box 30", "Check Box 31", "Check Box 25", _
"Check Box 24" _
, "Check Box 26", "Check Box 27")).Select
ActiveSheet.Shapes.Range(Array("Check Box 30", "Check Box 31", "Check Box 25", _
"Check Box 24" _
, "Check Box 26", "Check Box 27", "Check Box 29")).Select
ActiveSheet.Shapes.Range(Array("Check Box 30", "Check Box 31", "Check Box 25", _
"Check Box 24" _
, "Check Box 26", "Check Box 27", "Check Box 29", "Check Box 28")).Select
With Selection
.Value = xlOff
.LinkedCell = ""
.Display3DShading = True
End With
Sheets("Blatt2").Select
ActiveSheet.Shapes("Check Box 14").Select
ActiveSheet.Shapes.Range(Array("Check Box 14", "Check Box 15")).Select
ActiveSheet.Shapes.Range(Array("Check Box 14", "Check Box 15", "Check Box 9")). _
Select
ActiveSheet.Shapes.Range(Array("Check Box 14", "Check Box 15", "Check Box 9", _
"Check Box 8")).Select
ActiveSheet.Shapes.Range(Array("Check Box 14", "Check Box 15", "Check Box 9", _
"Check Box 8" _
, "Check Box 10")).Select
ActiveSheet.Shapes.Range(Array("Check Box 14", "Check Box 15", "Check Box 9", _
"Check Box 8" _
, "Check Box 10", "Check Box 11")).Select
ActiveSheet.Shapes.Range(Array("Check Box 14", "Check Box 15", "Check Box 9", _
"Check Box 8" _
, "Check Box 10", "Check Box 11", "Check Box 13")).Select
ActiveSheet.Shapes.Range(Array("Check Box 14", "Check Box 15", "Check Box 9", _
"Check Box 8" _
, "Check Box 10", "Check Box 11", "Check Box 13", "Check Box 12")).Select
With Selection
.Value = xlOff
.LinkedCell = ""
.Display3DShading = True
End With
End Sub
leider kommt dann die Fehlermeldung.
Die Value-Eigenschaft des DrawingObjects-Objektes kann nichtfestgelegt werden.
Kann mir einer sagen wo der fehler ist oder ob jemand einen anderen Lsungsweg kennt um die Kästchen zu deaktivieren
Vielen Dank im Vorraus
Alex