nur bestimmte Tabellen nicht autom. löschen

Private Sub App_WorkbookBeforeClose(ByVal Wb as Workbook, _ Cancel as Boolean) If Me.Saved = False Then exit sub 'nur notwendig, wenn Datei gespeichert wurde ''' alle Worksheets ausser "Details und "Uebersicht" löschen ActiveWorkbook.Close True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, _ Cancel As Boolean) Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name "Details" And ws.Name "Uebersicht" Then Application.DisplayAlerts = False ws.Delete Application.DisplayAlerts = True End If Next ws ActiveWorkbook.Close True End Sub

Hallo Erich
Das habe ich auch gerade entdeckt, auch wenn ich nicht weiss, wann man dann das "App_WorkbookBevoreClose" braucht.
Jetzt funktioniert das Löschen, was jedoch noch nicht wunschgemäss läuft ist folgendes:
Wenn eine Änderung im Workbook vorgenommen wurde, sollte trotzdem nachgefragt werden, ob ich speichern will.
Wenn ich nicht speichern will, muss ich die Möglichkeit haben, die Änderungen zu verwerfen.
Auch in diesem Fall müssen Tabellen, die nicht "Uebersicht" oder "Details" heissen, gelöscht werden, da ja unter Umständen eine Zwischenspeicherung erfolgt sein könnte.
Notwendige Arbeitsschritte, wenn Datei geschlossen wird
1. wenn eine Änderung erfolgt ist, muss gefragt werden, ob gespeichert werden soll
2. entweder speichern oder nicht speichern, in jedem Fall jedoch Tabellen, die nicht "Uebersicht" oder "Details" heissen, vorgängig eines allfälligen speicherns löschen
3. Datei schliessen
Gruss, Peter


Private Sub Workbook_BeforeClose(Cancel As Boolean)
'

Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, _
Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name  "Details" And ws.Name  "Uebersicht" Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
Next ws
ActiveWorkbook.Close True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim ws As Worksheet Application.DisplayAlerts = False For Each ws In ThisWorkbook.Worksheets If ws.Name "Details" And ws.Name "Uebersicht" Then ws.Delete Next ws Application.DisplayAlerts = True End Sub

Private Sub Workbook_BeforeSave( _ ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Dim wks As Worksheet Application.DisplayAlerts = False For Each wks In ThisWorkbook.Worksheets If wks.Name "Details" And wks.Name "Uebersicht" Then wks.Delete Next wks Application.DisplayAlerts = True End Sub

Beliebteste Forumthreads (12 Monate)

nur bestimmte Tabellen nicht autom. löschen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread