Office: Arbeitsblätter einzeln abspeichern

Hallo!

ich habe ein problem:

Ich habe eine große excel tabelle die ein blatt enthält welches bestimmte daten enthält.... andere blätter in der excel tabelle beziehen sich auf die inhalte des ersten blattes... nun möchte ich die blätter alle as einzelnes excel file speichern, ohne dass noch bezüge vorhanden sind, d.H. das der text des 1. blattes statt des bezuges darin gespeichert ist...

da es sich um 50+ blätter handelt währ es super, wenn es ein automatisches makro oder so gäbe!

Ich hoffe ihr könnt mir helfen!

mfg Explofish

 

Hallo!

Ich habe diesen Code für dich gebastelt:

Code:

Sub BlätterEinzelnSpeichern()
Dim Blatt As Worksheet
Dim Zieldatei As Workbook
Dim Formelzelle As Range
Const Pfad = "E:\Test\"
With Application
.SheetsInNewWorkbook = 1
.ScreenUpdating = False
For Each Blatt In ThisWorkbook.Worksheets
Set Zieldatei = Workbooks.Add
ThisWorkbook.Sheets(Blatt.Name).Copy After:=Zieldatei.Sheets(1)
.DisplayAlerts = False
Zieldatei.Sheets(1).Delete
.DisplayAlerts = True
For Each Formelzelle In Zieldatei.Sheets(1) _
.UsedRange.SpecialCells(xlCellTypeFormulas)
Formelzelle = Formelzelle
Next Formelzelle
Zieldatei.SaveAs Filename:=Pfad & ThisWorkbook.Name _
& " " & Blatt.Name, FileFormat:=xlNormal
Zieldatei.Close
Next Blatt
.ScreenUpdating = True
End With
End Sub

Er speichert jedes Blatt als einzelne Datei ins Verzeichnis "E:\Test\". Die Zeile musst du entsprechend anpassen.
Alle Formeln werden durch ihre Werte ersetzt.
Der Name der neuen Datei ist zusammengesetzt aus deinem alten Dateinamen und dem Namen des Blattes:
"DeinDateiname Blattname.xls"

 

hallo,

vielen dank schonmal für deine antwort. ich habe genau diesen code gesucht, doch leider funktioniert er nicht. es entsteht ein laufzeitfehler 1004 und excel stürzt ab!

Vielleicht ist es noch wichtig zu wissen, dass ich auf einem mac arbeite!


mfg explofish

 

Hallo!

Vom Mac habe ich leider keine Ahnung.
Wahrscheinlich ist hier die Dateistruktur etwas anders, aber das ist nur geraten...

 

dateistrucktur? Den Pfad habe ich schon so geändert, dass er den ordner auch findet...

ist vll ein fehler in deinem code? oder kannst du mir sagen warum excel abstürzt?

vielen dank schonmal


mfg explofish

 

Bei mir funktioniert der Code, daher weiß ich nicht, was bei dir los ist...

 

hmmm.. jetzt habe ich es unter windows vista mit dem neuesten office ausprobiert.. nun kommt die fehlermeldung
"Anwendungs oder Objektdefinierter Fehler" Auch 1004

ich wär dir sehr dankbar wenn du mir helfen könntest..

ich hoffe du hast verstanden dass in der mappe ein blatt sich auf das andere bezieht und diese beziehungen durch den text der abgerufen wird ersetzt werden soll!


mfg explofish

 

Ich hab's getestet unter Windows XP und Excel2007.
In jedem Blatt sind Formeln, die sich auf ein anderes Blatt beziehen.
All diese Formeln werden durch ihre Werte ersetzt und jedes Blatt wird einzeln abgespeichert.
Alles ohne Probleme!!!

 

seltsam...

ich schicke dir das excel File via pm! Du kannst ja damit mal versuchen die formel auf dieses File anzuwenden!

Ich wäre dir sehr dankbar wenn du den fehler findest! Vielleicht liegt es ja auch an dem excel file selbst!

mfg explofish

 

sooo jetzt hat ja alles wunderbar geklappt... aber wenn ich die dateien drucken möchte, werden die bider wieder auf originalgröße hochskaliert! davor habe ich sie jedoch alle angepasst!

gibt es eine möglichkeit, die excel files wieder in Ordnung zu bringen?

MFG Explofish

 

Hallo!

Ich habe deine Datei nicht mehr vorliegen...
Aber irgendwelche Skalierungen dürften sich nicht ändern, da das gesamte Blatt ja einfach nur kopiert wird:

ThisWorkbook.Sheets(Blatt.Name).Copy After:=Zieldatei.Sheets(1)