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"