Eine Excel Datei mit 50 Tabellenblätter sollen 50 Dateien werden
Hallo, gibt es irgend etwas hilfreiches ? Würde sonst mit STRG + jedes einzelne Tabellenblatt anfassen und in eine neue Datei hineinziehen.
3 Antworten
![](https://images.gutefrage.net/media/user/augsburgchris/1444744504_nmmslarge.jpg?v=1444744504000)
Hi, das ist Easy
Du gehst auf Daten-->Makros-->VisualBasic Editor
Dann auf Einfügen --> Modul
Sub aufteilen()
For i = 1 To ActiveWorkbook.Sheets.Count
Blatti = Sheets(i).Name
Sheets(i).Copy
ActiveWorkbook.SaveAs Blatti
ActiveWorkbook.Close
Next i
End Sub
![](https://images.gutefrage.net/media/user/augsburgchris/1444744504_nmmslarge.jpg?v=1444744504000)
![](https://images.gutefrage.net/media/default/user/9_nmmslarge.png?v=1551279448000)
Mit strg + kann ich höchstens Zellen einfügen. ???
![](https://images.gutefrage.net/media/default/user/10_nmmslarge.png?v=1551279448000)
Sowas müsste auch mit einem Makro funktionieren.
Aber bis das programmiert ist, hast Du die auch einzeln verschoben.
![](https://images.gutefrage.net/media/user/augsburgchris/1444744504_nmmslarge.jpg?v=1444744504000)
Also ich finde das 6 Zeilen Code schneller geschrieben sind also 50 Blätter kopiert und einzeln abgespeichert. Also ich habe für den Code knappe 2 Minuten gebraucht. Leider weiss ich nicht wie schnell du kopierst und abspeicherst.
![](https://images.gutefrage.net/media/default/user/15_nmmslarge.png?v=1551279448000)