Makro, dass alle Tabellenblätter bearbeitet
26.04.2006 15:50:31
holden
ich möchte ein Makro schreiben, dass in allen Tabellenblättern die Spalte y löscht.
Mit dem folgenden Makro funktioniert es nur in einem Tabellenblatt:
Sub bereinigen()
Dim n As Integer
For n = 3 To Worksheets.Count
With Worksheets(n)
Application.ScreenUpdating = False
Columns("Y:Y").Select
Selection.Delete Shift:=xlToLeft
End With
Next
Application.ScreenUpdating = True
End Sub
Weiß jemand, wo der Fehler liegt?
Habe Ähnliches noch mit einzelnen Zellen vor.
Danke für Tipps
Florian
Anzeige