Check Box mittels Makro zurücksetzen
23.03.2016 21:52:57
Pflaume
erfolgt in einer bestimmten Zelle meiner Arbeitsmappe eine Eingabe, erscheint eine von mir erstellte "Checkliste" mit ein paar "Check Boxen" zum abhaken. In der Checkliste gibt es auch einen Button, den der User meiner Mappe drücken soll, wenn er die Checkliste abgearbeitet hat, wodurch sich meine Checkliste schließt. Das haut einwandfrei hin. Ich habe versucht, alle Häkchen meiner Checkboxen über ein Makro zu entfernen, bzw. die Checkboxen mittels Makro wieder zurückzusetzen aber irgendwie haut das nicht hin. Ich wäre euch super dankbar, wenn ihr da mal drüberschauen könntet:
Sub BIbutton()
' BIbutton Makro
ActiveSheet.Shapes.Range(Array("Checkliste")).Select
ActiveSheet.Shapes.Range(Array("Check Box 140", "Check Box 175", _
"Check Box 176", "Check Box 177", "Check Box 178", "Check Box 179", _
"Check Box 180", "Check Box 181", "Check Box 182", "Check Box 183", _
"Check Box 184", "Check Box 185", "Check Box 186", "Check Box 187", _
"Check Box 188", "Check Box 189", "Check Box 190", "Check Box 191", _
"Check Box 192", "Check Box 193", "Check Box 194", "Check Box 195")).Select
With Selection
.Value = xlOff
.LinkedCell = ""
.Display3DShading = False
End With
ActiveSheet.Shapes.Range(Array("Checkliste")).Select
ActiveSheet.Shapes.Range(Array("Checkliste")).Visible = msoFalse
End Sub
Gruß Pflaume