Hi, Daniel schrieb mir zu diesem Thema: Hi ließe sich schon machen. erfordert aber etwas aufwand. - gehe alle deine Checkboxen durch und ersetze die Checkboxnummer durch die Adresse der Zelle, _ mit der die Checkbox vernüpft ist. "Check Box 18" wird "Check Box AC10" "Check Box 20" wird "Check Box AD10" dann ließen sich alle Checkboxen mit folgender Schleife bearbeiten: dim Zelle as range With Sheets("Anlegerplanung BEL TEST") For each Zelle in .Range("AC10:AH41") .Shapes("Check Box " & .Address(0, 0)).ControlFormat.value = -(Zelle.Value > 0) next End with noch zur Erläuterung: in VBA wird ein TRUE wie -1 und ein FALSE wie 0 gewertet. Das erspart dir hier die IF-Abfrage, weil du das Vergleichsergebnis (TRUE/FALSe) in den gewü _ nschten Wert (1 und 0) umrechenen kannst. Gruß Daniel Habe jetz alle CheckBoxes entsprechend umbenannt bekomme aber eine Fehlermeldung Laufzeitfehler 138 - Typ wird nicht unterstützt ...
Liegt das eventuell daran, dass ich die CB aus den Formularsteuerelementen verwendet habe?
Vielen Dank für ein feedback