Excel-Dateien zu groß

Hallo,
ich schreibe meine Rechnungen mit einem Rechnungsformular in Excel 2003. Über die Eingabe der Kundennummer trägt Excel über den SVERWEIS automatisch Name und Anschrift aus einer separaten Adressdatei ein.
Nun habe ich mittlerweile fast 2.000 Rechnungen geschrieben und jede neue Datei wird zunehmend größer. Mittlerweile ist eine Rechnungsdatei schon fast 300KB groß (Anfänglich waren es 46KB).
Mir ist klar, daß die Rechnungsdatei größer wird, je größer die Adressdatei wird. Gibt es einen Weg, die Rechnungsdateien irgendwie zu verkleinern? Ich habe schon versucht, sämtliche Dateien in PDF zu konvertieren, scheitere aber an der Ausführung per Batch. Und 2.000 Rechnungen manuell zu konvertieren kostet zu viel Zeit.
Kennt von Euch jemand einen Weg, entweder:
1. Die Größe der Rechnungsdateien zu verkleinern
2. 2.000 Excel-Dateien mit Verweisen ohne manuellen Eingriff in PDF zu konvertieren
Über jegliche Hilfe bin ich dankbar :)
Grüße
Uwe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Werte_einfügen() Anzahl_Sheets = ActiveWorkbook.Worksheets.Count For i = 1 To Anzahl_Sheets Sheets(i).Select Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("A1").Select Next i Sheets(1).Select Application.CutCopyMode = False End Sub

Hallo Uwe
Ist das Einbauen des Makro's geglückt?
Habe gesehen dass Du fast keine Kentnisse in VBA besitzt.
Anleitung:
1. Dateivorlage der Rechnungen öffnen
2. drücke die Tastenkombination Alt & F11
3. im Fenster links das Projekt markieren (die Rechnungsdatei)
4. rechte Maustaste drücken > Einfügen > Modul
5. Das Makro im markieren und Ctrl & C drücken


Sub Werte_einfügen()
Anzahl_Sheets = ActiveWorkbook.Worksheets.Count
For i = 1 To Anzahl_Sheets
Sheets(i).Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Next i
Sheets(1).Select
Application.CutCopyMode = False
End Sub

6. in das Fenster "Microsoft Visual Basic wechseln
7. in Bereich des Editors (rechts, vermutlich steht da Option Explicit) die letzte Zeile anklicken
8. Crtl & V und anschliessend Alt & Q
9. Datei Rechnungsvorlage Speichern
10. nach fertigstellung der Rechnung unter dem Menue Extras > Makro > Makros das Makro mit dem Namen Werte_einfügen anklicken und auf ausführen klicken.
11. jetzt noch Speichern unter und Fertig.
Jetzt sollten die Dateien deutlich weniger Volumen haben.
Gruss MartinM
Der Weg ist das Ziel!

Sub Alle_oeffnen() Dim i, Anzahl_Sheets Dim Dateiname, DirPath As String DirPath = "C:\" 'Dies ist der Pfad in welchem die DAteien sind Dateiname = Dir(DirPath & "*.xls") Do While Dateiname <> "" Workbooks.Open DirPath & Dateiname 'Sonstige Dinge Anzahl_Sheets = ActiveWorkbook.Worksheets.Count For i = 1 To Anzahl_Sheets Sheets(i).Select Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("A1").Select Next i Sheets(1).Select Application.CutCopyMode = False ThisWorkbook.Save ActiveWorkbook.Close True Dateiname = Dir Loop End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread