Private Sub Workbook_Open()
Dim sheetnmr As Integer
Dim anzSheets As Integer
anzSheets = 7
sheetnmr = ActiveWorkbook.Sheets.Count
If sheetnmr > anzSheets Then
Dim test As New Excel.Application
Dim pfad As String
Dim name As String
pfad = ActiveWorkbook.Path
name = ActiveWorkbook.name
alt_name = "alt_" & name
alt_pfad = pfad & "\History\"
Workbooks.Open alt_pfad & alt_name
While sheetnmr > anzSheets
Windows(name).Activate
On Error GoTo 0
<strong>ActiveWorkbook.Sheets(sheetnmr).Move After:=Workbooks(alt_name).Sheets(Workbooks(alt_name).Sheets.Count)
</strong> sheetnmr = sheetnmr - 1
Wend
EnableEvents = False
Application.DisplayAlerts = True
ActiveWorkbook.Save
ActiveWorkbook.Close
test.Quit
Windows(name).Activate
ActiveWorkbook.Save
End If
End Sub