Debug_Fehler_Auswahl_Objekte
05.12.2007 15:01:00
Christoph
habe foglendes Problem. Habe eine Karte aufgebaut, in der ich Objekte per Makro ein und ausblenden will. Funktioniert wunderbar. Bis ich zum Juli kam. Plötzlich bekomme ich einen Laufzeit Fehler und ich kann die Quelle nicht finden.
Habe ein i.O. Makro von 'June' angehängt und darunter das 'July' welches Probleme bereitet.
Entweder bin ich betriebsblind geworden oder den Verstand verloren, jedenfalls komme ich nicht weiter.
Könnte jemand von Euch mal kurz einen kritischen Blick drauf werfen, wäre toll.
Besten Dank,
gruß christoph
Sub show_june()
ActiveSheet.Shapes.Range(Array("Rectangle 218", "Rectangle 32" _
, "Rectangle 135", "Rectangle 137", "Rectangle 14", "Rectangle 140" _
, "Rectangle 142", "Rectangle 64", "Rectangle 65", "Rectangle 68", "Rectangle 78" _
, "Autoshape 217", "AutoShape 31", "AutoShape 5", "AutoShape 132", "AutoShape 13", " _
AutoShape 139" _
, "Autoshape 141", "AutoShape 63", "AutoShape 71")).Select
Selection.ShapeRange.ZOrder msoSendToFront
End Sub
Sub show_july()
ActiveSheet.Shapes.Range(Array("Rectangle 93", "Rectangle 292" _
, "Rectangle 38", "Rectangle 290", "Rectangle 289" _
, "Rectangle 229", "Rectangle 40", "Rectangle 172", "Rectangle 174", "Rectangle 16" _
, "Rectangle 20", "Rectangle 19", "Rectangle 18", "Rectangle 21", "Rectangle 25" _
, "Rectangle 33", "Rectangle 277", "Rectangle 337", "Rectangle 96", "Rectangle 74" _
, "Rectangle 164", "Rectangle 337", "Rectangle 336", "Rectangle 338", "Rectangle 26" _
, "AutoShape 90", "AutoShape 291", "AutoShape 37", "AutoShape 227", "AutoShape 289", " _
AutoShape 39" _
, "AutoShape 170", "AutoShape 173", "AutoShape 15", "AutoShape 276", "AutoShape 94", " _
AutoShape 71" _
, "AutoShape 335", "AutoShape 162")).Select
Selection.ShapeRange.ZOrder msoSendToFront
End Sub