Sub
TabellenblätterAufteilung()
Dim
Ws
As
Worksheet
Dim
Wb
As
Workbook
Dim
vis
As
Long
Set
Wb = ActiveWorkbook
Application.ScreenUpdating =
False
Application.DisplayAlerts =
False
For
Each
Ws
In
Wb.Worksheets
vis = Ws.Visible
Ws.Visible = xlSheetVisible
Ws.Copy
ActiveWorkbook.SaveAs Filename:=Wb.Path & "\" & Ws.Name
ActiveWorkbook.Close
Ws.Visible = vis
Next
Application.ScreenUpdating =
True
Application.DisplayAlerts =
True
End
Sub