Clever-Excel-Forum

Sehr geehrtes Forum,

ich habe ein Makro geschrieben, welches Häkchen die in Kontrollkästchen gesetzt sind wieder rausnimmt.
Als for schleife habe ich 1 to ActiveSheet.shapes.count gewählt, sodass ich nicht immer die Anzahl erhöhen muss.
Mein Problem ist, dass diese Art der For Schleife nur funktioniert, wenn die Kästchen richtig benannt sind, nicht im Textfeld, sondern im Namensfeld.
Wenn ich nun schon Kästchen erstellt habe, diese aber wieder gelöscht habe, weil etwas nicht gestimmt hat, dann wird eine Zahl übersprungen,
sprich zwischen Kontrollkästchen 15 und Kontrollkästchen 17 fehlt die 16.
Das behebe ich indem ich die Kästchen alle einzeln umbennene.
Gibt es eine Art und Weise das cleverer zu machen ?
Des Weitern habe ich das Problem, dass ich bestimmte Bennennungen nicht wählen kann, jedoch ist das komplett random.
In der einen Mappe kann ich die Bezeichnung: Kontrollkästchen 18 , nicht wählen, in der anderen geht : Kontrollkästchen 21, nicht.
Hat jemand ne Ahnung woran das liegt und wie ich das umgehen kann ?
Es gibt noch keine Kästchen in der jeweiligen Mappe die bereits diesen Namen tragen.

Mit freundlichen Grüßen
Eric Eichstädt

Hallo,

teste mal, ob dieser Code hilft:

Code:
Sub T_1()

Dim WS As Worksheet: Set WS = ActiveSheet

Dim Cbx As CheckBox

For Each Cbx In WS.CheckBoxes

     debug.print Cbx.name

     Cbx.Value = False

Next Cbx

End Sub

mfg

Moin!
Abseits der (natürlich) korrekten Antwort von Fennek:
(und auch aufgrund Deines anderen Threads, den ich kurz überflogen habe)

Du verrennst Dich da in etwas, was Dir irgendwann über den Kopf hinaus wächst, Eric!
Nimm hübsche Wingdings-Zeichen, die man hervorragend auswerten kann.
Das handeln mittels VBA ist dann ebenfalls ein Klacks.
Hier mal ein how to:
http://www.clever-excel-forum.de/Thread-...mal-anders

Gruß Ralf

Eric Eichstaedt

Fennek

RPP63