Hab schon wieder eine Frage.
Habe von HaJo einen Code gefunden, ich bringe es nicht zusammen den auf mich umzuändern.
Ich möchte alle Tabellenblätter löschen können, bis auf 3 Tabellenblätter "Gesamt","Vorlage","Tabelle31", die 3 sollten erhalten bleiben alle anderen Blätter gehören gelöscht.
Könnt ihr mir wiedermal helfen?
Danke LG Udo
Option Explicit
Sub Loeschen()
' Alle Register löschen bis auf Register Tabelle1
Dim I As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For I = ActiveWorkbook.Worksheets.Count To 1 Step -1
Select Case UCase(Worksheets(I).Name)
Case "TABELLE1", "TABELLE2", "TABELLE3", "TABELLE4", _
"TABELLE5", "TABELLE6", "TABELLE7"
Case Else
Worksheets(I).Delete
End Select
Next I
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub