Shapes aus-/einblenden und ohne select
02.05.2017 16:19:49
Dieter(Drummer)
mit dem "
Sub Aus" kann ich die Shapes ausblenden, aber mit "
Sub An" kann ich sie nicht wieder einblenden.
Mit der Bitte um Hilfe und die Makro ohne "select". Evtl. können die Makros aocu kürzer sein, _
da ich sie per Rekorder ausfgezeichnet habe:
Gruß, Dieter(Drummer)
Codes im Modul:
Sub Aus()
ActiveSheet.Shapes.Range(Array("Ellipse 1", "Ellipse 2", "Ellipse 3", _
"Ellipse 4", "Ellipse 5", "Ellipse 6", "Ellipse 7", "Ellipse 8")).Select
Selection.ShapeRange.Visible = False
Range("G8").Select
End Sub
Sub An()
ActiveSheet.Shapes.Range(Array("Ellipse 1", "Ellipse 2", "Ellipse 3", _
"Ellipse 4", "Ellipse 5", "Ellipse 6", "Ellipse 7", "Ellipse 8")).Select
Selection.ShapeRange.Visible = True
Range("G8").Select
End Sub