Excel löschen Bereits erstellte Blätter

Question

Ich habe ein Makro, das ich eingerichtet habe, um mehrere Sortierungen und Filter zu durchlaufen, und am Ende jedes Schritts erstellt es ein neues Arbeitsblatt und fügt die gefilterten Informationen ein.

Wenn ich möchte, dass die Person dieselbe Arbeitsmappe mit einem neuen Satz von Daten verwenden kann, möchte ich, dass das Makro alle zuvor erstellten Blätter löscht.

Ich habe mehrere Arten von Code ausprobiert, die alle Arbeitsblätter löschen, aber nicht "P High Offstd" löschen können.

Ich habe versucht, die Aufträge des Löschens sowie verschiedene Möglichkeiten, Arbeitsblätter zu löschen, aber es verweigert, das Arbeitsblatt zu löschen.

Ich habe sogar versucht, den Namen zu ändern, wie es früher Processing High Offstd genannt wurde. Jede Hilfe wäre von Vorteil.

Application.ScreenUpdating = False 
For Each Sheet In ActiveWorkbook.Worksheets 
If Sheet.Name = "Processing 0% Performance" Then 
    Application.DisplayAlerts = False 
    Worksheets("Processing 0% Performance").Delete 
    Application.DisplayAlerts = True 
End If 
Next Sheet 
For Each Sheet In ActiveWorkbook.Worksheets 
If Sheet.Name = "Processing 0 OnStd" Then 
    Application.DisplayAlerts = False 
    Worksheets("Processing 0 OnStd").Delete 
    Application.DisplayAlerts = True 
End If 
Next Sheet 
For Each Sheet In ActiveWorkbook.Worksheets 
If Sheet.Name = "P High OffStd" Then 
    Application.DisplayAlerts = False 
    Worksheets("P High OffStd").Delete 
    Application.DisplayAlerts = True 
End If 
Next Sheet 
For Each Sheet In ActiveWorkbook.Worksheets 
If Sheet.Name = "Processing Low Performance" Then 
    Application.DisplayAlerts = False 
    Worksheets("Processing Low Performance").Delete 
    Application.DisplayAlerts = True 
End If 
Next Sheet 
With ActiveWorkbook.Worksheets("Processing") 
.Range("AA1:AZ" & .Range("AA1").End(xlDown).Row).ClearContents 
.Range("C3:C" & .Range("C3").End(xlDown).Row).ClearContents 
.Range("E3:E" & .Range("E3").End(xlDown).Row).ClearContents 
End With 

Answer 1

Ihr Code kann zu

With Application 
    .ScreenUpdating = False 
    .DisplayAlerts = False 
End With 

For Each Sheet In ActiveWorkbook.Worksheets 
    If Sheet.Name = "Processing 0% Performance" Or Sheet.Name = "Processing 0 OnStd" _ 
    Or Sheet.Name = "P High OffStd" Or Sheet.Name = "P High OffStd" Or Sheet.Name = "Processing Low Performance" Then 
     Sheet.Delete 
Next Sheet 

With ActiveWorkbook.Worksheets("Processing") 
    .Range("AA1:AZ" & .Range("AA1").End(xlDown).Row).ClearContents 
    .Range("C3:C" & .Range("C3").End(xlDown).Row).ClearContents 
    .Range("E3:E" & .Range("E3").End(xlDown).Row).ClearContents 
End With 
With Application 
    .DisplayAlerts = True 
    .ScreenUpdating = True 
End With