Hallo,
folgenden Code spuckt mein Macrorecorder aus:
Sheets("Übersicht").Select
ActiveSheet.Shapes("Check Box 3").Select
Selection.Value = xlOn
Sheets("Firmen").Select
ActiveSheet.Shapes("Check Box 1067").Select
Selection.Value = xlOn
Sheets("Bewertung - Price").Select
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.Shapes("Check Box 18").Select
Selection.Value = xlOn
Kann mir jemand den so gut wie möglich verkürzen?
Vor allem wäre es mir lieb, wenn hinterher nicht die ganzen CheckBoxen aktiviert wären (sieht dumm aus).
Danke