AW: Tabellenblätter beim beenden löschen
06.07.2006 08:38:42
Jan3
Hi Andreas,
Anbei 2 Makros, die beim Schließen oder Speichern der Arbeitsmappe nach dem Namen des Tabellenblattes fragen und es dann löschen!
Diese Makros müssen im VBA-Projekt in "Diese Arbeitsmappe" kopiert werden. Wenn Du keinen Tabellenblattname eingibst, erfolgt auch keine Löschung.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
eingabe = InputBox("Welches Tabellenblatt soll gelöscht werden? Name eingeben!")
If eingabe <> "" Then
For Each ws In Worksheets
If ws.Name = eingabe Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
MsgBox "Datei wurde gelöscht!"
End If
Next ws
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
eingabe = InputBox("Welches Tabellenblatt soll gelöscht werden? Name eingeben!")
If eingabe <> "" Then
For Each ws In Worksheets
If ws.Name = eingabe Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
MsgBox "Datei wurde gelöscht!"
End If
Next ws
End If
End Sub
Wolltest Du es so haben?
Jan