Shape left
03.07.2014 12:48:58
Stef26
Hallo Zusammen,
ich bräuchte nochmals kurze Unterstützung.
Ich wollte gerade den Bereich in dem ich Shapes Ausblende eingrenzen.
In dem ich die mit left eingrenzen wollte.
Allerdings bleibt das Macro an dieser stelle stehen ?
Sub EineEbeneein()
EBakt = Sheets("Skizze").Range("AQ12")
Dim ASSShape As Shape
For Each ASSShape In Sheets("Skizze").Shapes
If Not ASSShape.Name Like EBakt Then
If ASShape.Left > 86 And ASShape.Left < 500 Then
ASSShape.Visible = False
End If
End If
Next
End Sub
Könnte mir jemand helfen, was ich hier falsch mache ??Liebe Grüße
Stefan