dim wsh as Worksheet
for each wsh in ActiveWindow.SelectedSheets
Select Case wsh.Name
Case "Tabelle1", "Übersicht"
Case Else
wsh.Delete
End select
Next
Sub Entblaettern()
Dim Sh As Object
Application.DisplayAlerts = False
For Each Sh In ThisWorkbook.Sheets
Select Case Sh.namm
Case "Tabelle1", "Übersicht"
Case Else
If ThisWorkbook.Sheets.Count > 1 Then Sh.Delete
End Select
Next
Application.DisplayAlerts = True
End Sub
Public Sub ActiveSheet_löschen()
Application.DisplayAlerts = False
Dim wsh As Worksheet
For Each wsh In ActiveWindow.SelectedSheets
Select Case wsh.Name
Case "Tabelle1", "Übersicht"
Case Else
wsh.Delete
End Select
Next
Application.DisplayAlerts = True
End Sub
Public Sub ActiveSheet_löschen()
Application.DisplayAlerts = False
Dim wsh As Worksheet
For Each wsh In ActiveWindow.SelectedSheets
Select Case wsh.Name & wsh.CodeName
Case "Übersicht", "Tabelle1"
Case Else
wsh.Delete
End Select
Next
Application.DisplayAlerts = True
End Sub
Select Case wsh.Name & wsh.CodeName
Case "ÜbersichtTabelle2", "Tabelle1Tabelle1"