ich bin auf in der 1. Tabelle, diese sollte einfach kopiert werden.
gruß
kurt k
dim wsh as Worksheet
for each wsh in ActiveWindow.SelectedSheets
Select Case wsh.Name
Case "Tabelle1", "Übersicht"
Case Else
wsh.Delete
End select
Next
Gruß DanielSub 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
Gruß GerdPublic 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
Könnte man noch eine MSGBOX Hinweis einbauen, wollen Sie tatsächlich diese Sheet löschen.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
gruß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