Schleife vekürzen
Jörg-HH
mit
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each ws In ThisWorkbook.Worksheets
If ws.Name "config" _
And ws.Name "ToDo" _
And ws.Name "Formular" Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
Next ws
...usw...
lösche ich nicht benötigte Arbeitsblätter (jene vor dem Blatt config). Da das knapp neunzig Stück sind, dauert die Geschichte ewig. Kann man das irgendwie zusammenfassen? zB von ... bis ... auswählen und dann en bloc löschen?
Grüße - Jörg