Code

Sub TabellenblätterAufteilen() 
 
'Alle Tabellenblätter in separate Excel-Dateien abspeichern 
 
'Variablen initialisieren 
Dim Ws As Worksheet 
Dim Wb As Workbook 
Dim vis As Long 
 
'Variablen zuweisen 
Set Wb = ActiveWorkbook 
Set Ws = Wb.ActiveSheet 
 
'ScreenUpdating und PopUps deaktivieren 
Application.ScreenUpdating = False 
Application.DisplayAlerts = False 
 
 
'For-Each Schleife über alle Tabellenblätter 
For Each Ws In Wb.Worksheets 
    'Visibility des Tabellenblatts speichern und Tabellenblatt einblenden 
    vis = Ws.Visible 
    Ws.Visible = xlSheetVisible 
     
    'Tabellenblatt in neue Arbeitsmappe kopieren, abspeichern und Arbeitsmappe schließen 
    Ws.Copy 
    ActiveWorkbook.SaveAs Filename:=Wb.Path & "" & Ws.Name 
    ActiveWorkbook.Close 
     
    'Tabellenblatt wieder ausblenden, falls es vorher ausgeblendet war 
    Ws.Visible = vis 
Next Ws 
 
'ScreenUpdating und PopUps aktivieren 
Application.ScreenUpdating = True 
Application.DisplayAlerts = True 
 
'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub