Makro um Datei zu leeren

Guten Morgen,
ich habe folgendes Makro aufgezeichnet (da ich von VBA keine Ahnung habe).
Damit sollen einige Reiter einer größeren Datei geleert werden.
Irgendwie scheint sich das Makro aufzuhängen und läuft ewig .....
Woran könnte das liegen?
Wie kann man das Makro so anpassen, dass es "schneller durchläuft"?
Danke für Eure Hilfe.
Jens
Hier das Makro:

Public Sub Susi()
Dim myRange As Range
Application.ScreenUpdating = False
For Each myRange In Worksheets("Outbound").UsedRange
If Not myRange.Locked Then myRange.ClearContents
Next
Application.ScreenUpdating = True
Application.ScreenUpdating = False
For Each myRange In Worksheets("IVR-Daten").UsedRange
If Not myRange.Locked Then myRange.ClearContents
Next
Application.ScreenUpdating = True
Application.ScreenUpdating = False
For Each myRange In Worksheets("Abrechnung OMT").UsedRange
If Not myRange.Locked Then myRange.ClearContents
Next
Application.ScreenUpdating = True
Application.ScreenUpdating = False
For Each myRange In Worksheets("Post und Fax").UsedRange
If Not myRange.Locked Then myRange.ClearContents
Next
Application.ScreenUpdating = True
Application.ScreenUpdating = False
For Each myRange In Worksheets("Redaktion-Sortierung").UsedRange
If Not myRange.Locked Then myRange.ClearContents
Next
Application.ScreenUpdating = True
Application.ScreenUpdating = False
For Each myRange In Worksheets("Redaktion").UsedRange
If Not myRange.Locked Then myRange.ClearContents
Next
Application.ScreenUpdating = True
Application.ScreenUpdating = False
For Each myRange In Worksheets("Anzeigen Interner Service").UsedRange
If Not myRange.Locked Then myRange.ClearContents
Next
Application.ScreenUpdating = True
Application.ScreenUpdating = False
For Each myRange In Worksheets("Perso").UsedRange
If Not myRange.Locked Then myRange.ClearContents
Next
Application.ScreenUpdating = True
Application.ScreenUpdating = False
For Each myRange In Worksheets("E-Mails").UsedRange
If Not myRange.Locked Then myRange.ClearContents
Next
Application.ScreenUpdating = True
Application.ScreenUpdating = False
For Each myRange In Worksheets("IVR-Daten").UsedRange
If Not myRange.Locked Then myRange.ClearContents
Next
Application.ScreenUpdating = True
Application.ScreenUpdating = False
For Each myRange In Worksheets("Umzugs-Service MPL").UsedRange
If Not myRange.Locked Then myRange.ClearContents
Next
Application.ScreenUpdating = True
Application.ScreenUpdating = False
For Each myRange In Worksheets("Sonderaufgaben").UsedRange
If Not myRange.Locked Then myRange.ClearContents
Next
Application.ScreenUpdating = True
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Susi() Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets Select Case ws.Name Case "Outbound", "IVR-Daten", "Abrechnung OMT", "Post und Fax" _ , "Redaktion-Sortierung", "Redaktion", "Anzeigen Interner Service", "Perso", "E-Mails" With ws If Not .ProtectContents Then .UsedRange.ClearContents End If End With Case Else End Select Next ws End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread