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"
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen