Alle Tabellen als einzelne Arbeitsmappe speichern

16/12/2012 - 13:27 von Rudolf Hänni | Report spam
Hallo zusammen
Ich habe mehrere Excel Arbeitsmappen mit sehr vielen Tabellen
nun möchte ich jede Tabelle als neue Arbeitsmappe speichern.

Die methode mit Verschieben/kopieren kenne ich, es handelt sich aber in diesem Fall um Mappen mit mehr als 200 Tabellen.
Die neuen Mappen sollen jeweils den Namen der Tabelle bekommen und in das Selbe Verzeichniss gespeichert werden wo die Ursprungs Mappe ist.
Ich arbeite mit Office 2007

Hat mir jemand einen Tip?
Vielen Dank im Voraus
Gruss Rudolf
 

Lesen sie die antworten

#1 Claus Busch
16/12/2012 - 18:00 | Warnen spam
Hallo Rudolf,

Am Sun, 16 Dec 2012 04:27:48 -0800 (PST) schrieb Rudolf Hànni:

Ich habe mehrere Excel Arbeitsmappen mit sehr vielen Tabellen
nun möchte ich jede Tabelle als neue Arbeitsmappe speichern.



meinst du mit Tabellen Tabellenblàtter?

Die methode mit Verschieben/kopieren kenne ich, es handelt sich aber in diesem Fall um Mappen mit mehr als 200 Tabellen.
Die neuen Mappen sollen jeweils den Namen der Tabelle bekommen und in das Selbe Verzeichniss gespeichert werden wo die Ursprungs Mappe ist.



Dann automatisiere das Verschieben/Kopieren mit VBA:

Sub TabelleZuMappe()
Dim Pfad As String
Dim i As Integer

Pfad = ThisWorkbook.Path
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Copy
ChDir Pfad
ActiveWorkbook.SaveAs Filename:=Pfad & "\" & Sheets(1).Name &
".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub


Mit freundlichen Grüßen
Claus Busch
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3

Ähnliche fragen