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
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
Mit strg + kann ich höchstens Zellen einfügen. ???
Sowas müsste auch mit einem Makro funktionieren.
Aber bis das programmiert ist, hast Du die auch einzeln verschoben.
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.