Tabellenblätter Aufteilen

Inhalt

✓ Tabellenblätter mit einem Knopfdruck in separate Excel Dateien aufteilen
✓ Tabellenblatt in eine neue Arbeitsmappe kopieren, abspeichern und Arbeitsmappe schließen
✓ ScreenUpdating und PopUps kurzzeitig deaktivieren
✓ Tabellenblätter kurzzeitig einblenden
✓ Direktfenster
✓ Persönliche Arbeitsmappe und Makro einem Shortcut zuweisen

 

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
Share on linkedin
Share on xing
Share on email
Share on whatsapp
Share on facebook

Ähnliche themen

VBATrainer Excel VBA Coaching - QR-Code
Kai Weissmann

QR-Code

  Inhalt QR-Code über eine selbstgeschrieben Funktion als Bild in Excel einfügen URL zur Generierung

Mehr lesen »
VBATrainer Excel VBA Coaching -Outlook Termin
Kai Weissmann

Outlook-Termin

  Inhalt Outlook-Termin erstellen und Zugriff auf alle Termin-Eigenschaften haben Outlook-Bibliothek aktivieren/Verweis setzen (Extras –>

Mehr lesen »
VBATrainer Excel VBA Coaching -PDF erstellen
Kai Weissmann

PDF erstellen

  Inhalt PDF erstellen: Ansprechen des Tabellenblatts und ExportAsFixedFormat Erstellung Dateipfad & Direktbereich Dateipfad und

Mehr lesen »
VBATrainer Excel VBA Coaching - Dozent Kai Weissmann

Kai Weissmann

VBA Entwickler

Hallo und schön, dass du hier bist! Schau dich gerne in meinen Blog-Posts um. Falls du Fragen zu einem Thema hast, schreib mir gerne einen Kommentar.

Kai Weissmann

Persönliche Empfehlungen
Mein Kurs

Jetzt registrieren