kann mir vielleicht jemand sagen wie man tabellenblätter in denen das wort "bis" vorkommt beim schließen der datei automatisch löschen kann?
Danke
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If InStr(ws.Name, "bis") > 0 Then ws.Delete
Application.DisplayAlerts = False
Next
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name Like "*bis*" Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.DisplayAlerts = False
For Each sh In Sheets
If sh.Name Like "*bis*" Then sh.Delete
Next
Application.DisplayAlerts = True
End Sub