Warum (t)rödelt der Code so ...
Mandy
ich möchte mit folgendem Code alle Tabellenblätter mit "Detail" durchlaufen und dabei alle AutoFormen, die sich darauf befinden entfernen, Zeilenhöhe stellen und zwei ausgebelendetet Spalten einblenden.
Doch der Code rödelt vor sich hin, wenn man ihn nicht abbricht, kann es bis zu 10 Minuten dauern, bis er fertig ist oder man bricht vorher ab.
Kann jamand sehen, ob ich da unfreiwillig sowas wie eine Schleife eingebaut habe ?
Danke:
Sub Zurücksetzen()
Dim Blatt As Worksheet
Dim x As Long, z As Long, Loletzte As Long
Dim shp As Shape
Application.ScreenUpdating = False
For Each Blatt In Sheets
If Left(Blatt.Name, 6) = "Detail" Then
Blatt.Select
Loletzte = Blatt.Cells(Rows.Count, 2).End(xlUp).Row
z = 1
For x = 2 To Loletzte
Blatt.Rows("7:" & Loletzte).Select
Selection.ClearContents
For Each shp In ActiveSheet.Shapes
If Not Intersect(shp.TopLeftCell, Selection) Is Nothing Then shp.Delete
Selection.RowHeight = 12.75
Columns("F:G").EntireColumn.Hidden = False
Next
Next
End If
Next
Application.ScreenUpdating = True
End Sub