ich habe dieses Makro auch aus Forum:
Dim I As Integer
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
For I = Application.Min(10, Sheets.Count) To 2 Step -1
Sheets(I).Delete
Next
Ich möchte das alle Tabellen gelöscht werden außer
die Tabelle1 und die Tabelle mit dem Namen "Übersicht".
mfg
kurt k