Hallo, hier wieder der Küchenjunge. Wieder mit einer „blöden“ Frage: Dann es sein, das Excel eine Datei im Hintergrund immer mehr aufbläßt? Ich habe das Gefühl, das eine bestimmte Datei immer größer und größer wird. Ich habe irgendwo mal gelesen, das Excel „in der Datei“ was einschummelt.
Hallo, hier wieder der Küchenjunge. Wieder mit einer „blöden“
Frage: Dann es sein, das Excel eine Datei im Hintergrund immer
mehr aufbläßt? Ich habe das Gefühl, das eine bestimmte Datei
immer größer und größer wird. Ich habe irgendwo mal gelesen,
das Excel „in der Datei“ was einschummelt.
Hallo Volker,
m.W. gibt es da nur ein Mittel dagegen, alle Blätter einzeln in eine neue Datei kopieren, dabei nicht das komplette Blatt sondern nur den benutzten Bereich kopieren.
Gruß
Reinhard
Geht noch einfacher
Hallo,
einfach alle unbenutzten Zeilen und spalten löschen
- Alle unbenutzten Zeilen markieren und im Kontextmenü „Zellen löschen“ wählen
- Mit den Spalten das gleiche Spiel
und das machst du mit jedem Arbeitsblatt.
Im Anschluß das Dokument speichern. Du wirst staunen 
MFG
der Chris
Hallo Christoph und Reinhard, die Tipps sind gut, aber bei ca. 1000 Arbeitsblatt?. Es sind zwar immer die gleichen Datenformulare, aber per Hand alles andere löschen? Hab ihr da auch noch einen Tipp?
Gruß Volker
P.S. Werde mal so 10 Blätter ändern und sehen ob es was bringt?
Hallo Christoph und Reinhard, die Tipps sind gut, aber bei ca.
1000 Arbeitsblatt?. Es sind zwar immer die gleichen
Datenformulare, aber per Hand alles andere löschen? Hab ihr da
auch noch einen Tipp?
P.S. Werde mal so 10 Blätter ändern und sehen ob es was
bringt?
Hallo Volker,
der Code kopiert den Bereich „A1:G200“ aller Blätter der Mappe in dessen Modul er steht in eine neue Mappe die „Neuedatei.xls“ heißt und sich im Ordner „c:\test“ befindet.
Diese drei Dinge kannst du oben im Code bei den Konstanten anpassen.
Beim Pfad hinten den Backslash nicht vergessen.
Ein Fehler kommt, wenn der Pfad nicht existiert oder es dort schon eine Mappe gleichen Namens gibt.
In ein Standardmodul, z.B. Modul1:
Option Explicit
'
Sub tt()
Dim N As Long, wkb As Workbook
Const Pfad As String = "c:\test\", Datei As String = "Neuedatei.xls"
Const Bereich As String = "A1:G200"
On Error GoTo Ende
Application.ScreenUpdating = False
Set wkb = ThisWorkbook
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Pfad & Datei
With Workbooks(Datei)
Application.DisplayAlerts = False
For N = .Worksheets.Count To 2 Step -1
.Worksheets(N).Delete
Next N
Application.DisplayAlerts = True
.Worksheets(N).Name = "ödjäsui"
For N = 1 To wkb.Worksheets.Count
.Worksheets.Add after:=.Worksheets(.Worksheets.Count)
.ActiveSheet.Name = wkb.Worksheets(N).Name
wkb.Worksheets(N).Range(Bereich).Copy Destination:=.ActiveSheet.Range("A1")
Next N
Application.DisplayAlerts = False
.Worksheets("ödjäsui").Delete
End With
Ende:
Application.DisplayAlerts = True
Application.ScreenUpdating = True
If Err.Number 0 Then MsgBox "Es trat ein Fehler auf"
End Sub
Gruß
Reinhard
1 „Gefällt mir“
Danke Reinhard, ich habe den Code ausprobiert, leider werden die Formeln und die Formation der Zellen nicht mitkopiert. Kannst du das auch programmieren?
Wäre schön und einfacher.
Gruß Volker
Danke Reinhard, ich habe den Code ausprobiert, leider werden
die Formeln und die Formation der Zellen nicht mitkopiert.
Hallo Volker,
ich habe mir schon gedacht daß eine Rückfrage dieser Art kommt 
Aber das hat erstmal zweite Priorität, hast du den Code mal an einer Kopie deiner Datei ausprobiert, dann die entstandene Datei abgespeichert.
Ist sie beträchtlich kleiner geworden, und, lief der Code problemlos durch?
Jetzt zu Formeln und Formatierungen. Gut, Formeln kann man miteinbauen. Bei den Formatierungen, welche werden denn nicht mitkopiert? Manuell gefärbte Zellen werden in ihrer Farbe kopiert *getestet*
Lade mal bitte eine Beispielmappe mit so 3-4 Blättern hoch mittels FAQ:2861 .
Und grundsätzlich zu Formeln, wenn du da 1000 Blätter hast, die jeweils 100 Zellen mit Formeln haben und jede Formel ist im Schnitt 20 Bytes lang, so sind das schonmal 20x1000X100 = 2 Millionen Bytes, ugs. also 2 MB.
Benutzt du anstatt der Formeln nur die Namen für eine Formel, und der Name hat nur 2 Zeichen so sind das ca. nur noch 200 tausen Bytes, also 0,2 MB.
Jetzt mal die Möglichkeiten von Makros weglassend.
Gruß
Reinhard
Hallo Reinhrad,
der Code ist voll durchgelaufen. Hat zwar eine ganze Zeit gedauert, aber so wie du beschrieben hast sind alle Blätter in der Arbeitsmappe aufgetaucht. Die Datei ist jetzt nur 25 % der Alt Datei!!! Die Datei werde ich hochladen. Ich hoffe die Formel gehen nicht verloren, weil sie "so abenteuerlich " sind. (Für mich, denn bis die Damals liefen verging so Monate. Hatte kein Internet, und wuste nicht wer mir helfen könnte)
Hallo Reinhard
anbei der Link zu der Datei.
http://www.hostarea.de/server-09/September-76efd762f…
Ich hoffe es hat geklappt, war aus das erste Mal!
Gruß Volker
anbei der Link zu der Datei.
http://www.hostarea.de/server-09/September-76efd762f…
Hallo Volker,
ja, das Runterladen klappte.
Nur, zumindest das eine Blatt hatte Blattschutz, okay, den habe ich beseitigt.
Aber vielleicht kann ich das nicht wenn du eine XL2007-Datei hast.
Das wäre ja auch egal, die Daten sind mir egal, aber vielleicht ist der Blattschutz wichtig für die Problematik, in dem fall der Formeln und Formatierungen.
Und natürlich ist es richtig und wichtig für dich daß ich ggfs. Code entwickle der auch bei bestehendem Blattschutz funtioniert.
Aber, dazu ist es doch für mich und alle anderen Interessierten viel einfacher, du postest auch das Passwort des Schutzes.
PS: bei 1 € VK und 7 € EK würde ich die Hackebällchen aus dem Programm nehmen *grins*
PS2: ich schaue morgen mal wie man da was kopieren kann.
Gruß
Reinhard