Ich versuche einige (5-10) Blätter zu löschen. das heißt alle mit 2 oder 3 Ausnahmen.
Ich suche eine Lösung mit CASE. Meine Frage ist, lässt sich das realisieren oder bleibt mir nur der WEG über "IF ELSE"?
Gruß Helmut
Sub Loeschen()
Dim WsTabelle As Worksheet
Application.DisplayAlerts = False ' Mitteilungen
For Each WsTabelle In Worksheets
Select Case WsTabelle.Name
Case "Tabelle1", "Tabelle13"
WsTabelle.Delete
End Select
Next WsTabelle
Application.DisplayAlerts = True ' Mitteilungen
End Sub
for each wks in worksheets
select case wks.name
case "A","B","C"
'mach nix
Case else
wks.delete
end select
next wks
GrußSub Loeschen2()
Dim wks As Worksheet
Application.DisplayAlerts = False ' Mitteilungen
For Each wks In Worksheets
Select Case wks.Name
Case "Tabelle26", "Tabelle32"
'mach nix
Case Else
wks.Delete
End Select
Next wks
Application.DisplayAlerts = True ' Mitteilungen
End Sub
Gruß