Hallo Zusammen,
ich versuche ein VBA - Code zu schreiben der nach einer Bedingung (von 1 bis zu 12-xi) gewisse Grafiken die diese Bedingung erfühlen ausblenden.
Dim xi As Long
Dim Y As Long
With Schema
xi = Sheets("Schema").Range("A1").Value
For Y = 1 To Y = 12 - xi
ActiveSheet.Shapes.Range(Array("Y")).Visible = False
Next
Kann mich jemand dabei helfen?
Danke,
Uwe
|