AW: Bei Workbook open neue Tabellenblätter anlegen
28.03.2006 07:52:41
Reinhard
Hi Wolfgang,
in "DieseArbeitsmappe"-Codebereich. Es kommt trotz "DisplayAlerts = False" noch eine Abfrae beim Schliessen, deshalb Frage noch offen.
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim n As Byte, neu
On Error GoTo ende
neu = Array("Daten", "Daten2", "Daten3")
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
For n = 0 To 2
Worksheets(neu(n)).Visible = True
Worksheets(neu(n)).Delete
Next n
ende:
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub
Private Sub Workbook_Open()
Dim n As Byte, neu
neu = Array("Daten", "Daten2", "Daten3")
On Error Resume Next
For n = 0 To 2
Worksheets.Add
ActiveSheet.Name = neu(n)
ActiveSheet.Visible = xlVeryHidden
Next n
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim n As Byte, neu
On Error GoTo ende
neu = Array("Daten", "Daten2", "Daten3")
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
For n = 0 To 2
Worksheets(neu(n)).Visible = True
Worksheets(neu(n)).Delete
Next n
ende:
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..