Hier nochmal etwas abgewandelt, ohne Loeschabfrage:
Option Explicit
Sub Test()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
If ws.Cells(3, 5) = "0" Then
Application.DisplayAlerts = False
ThisWorkbook.Sheets("Sheet2").Delete
ThisWorkbook.Sheets("Sheet3").Delete
ThisWorkbook.Sheets("Sheet4").Delete
Application.DisplayAlerts = True
Else
Set ws = ThisWorkbook.Sheets("Sheet2")
If ws.Cells(3, 5) = "0" Then
Application.DisplayAlerts = False
ThisWorkbook.Sheets("Sheet1").Delete
ThisWorkbook.Sheets("Sheet3").Delete
ThisWorkbook.Sheets("Sheet4").Delete
Application.DisplayAlerts = True
End If
End If
End Sub
Da du nach einer Schleife gefragt hast, habe ich noch mal eine Frage.
Meinst du es so, dass in Blatt 1 geschaut wird, wenn in E5=0 dann alle anderen Blaetter loeschen? Oder wirklich nur spezifische? Wenn nur spezifische, dann wird es schwierig mit einer Schleife, da sich ja die zu loeschenden Tabellennamen immer veraendern.
Erklaer nochmal genau, was du vorhast.
Gruss Torsten
|