Dateigrösse
23.05.2007 14:12:50
Schallbach
Habe das Problem das ich ein Tabellenblatt kopiere und speicher, dabei alle formeln in Fixwerte umwandle, diverse Buttons lösche und trotzdem eine Dateigrösse von 1,5 MB habe, das bei nur einem Tabellenblatt.
Sheets("Auftragsvorlage").Select
Sheets("Auftragsvorlage").Copy
Dim SRow As Long
With Sheets("Auftragsvorlage")
For SRow = 5 To 56
Cells(SRow, 1).Value = .Cells(SRow, 1)
Cells(SRow, 2).Value = .Cells(SRow, 2)
Cells(SRow, 3).Value = .Cells(SRow, 3)
Cells(SRow, 4).Value = .Cells(SRow, 4)
Cells(SRow, 5).Value = .Cells(SRow, 5)
Cells(SRow, 6).Value = .Cells(SRow, 6)
Cells(SRow, 7).Value = .Cells(SRow, 7)
Cells(SRow, 8).Value = .Cells(SRow, 8)
Next
End With
ActiveSheet.Shapes("CommandButton1").Select
Selection.Cut
ActiveSheet.Shapes("CommandButton2").Select
Selection.Cut
ActiveSheet.Shapes("CommandButton3").Select
Selection.Cut
ActiveSheet.Shapes("CommandButton4").Select
Selection.Cut
ActiveSheet.Shapes("CommandButton5").Select
Selection.Cut
ActiveSheet.Shapes("CommandButton6").Select
Selection.Cut
Mein erstes Problem ist dass die Makros für die Buttons bleiben. Wie bringe ich die weg? Und wie wird meine Dateigrösse kleiner. Wenn ich von Hand nur die Zelen und Spalten kopiere und dann in eine neue Datei als Werte einfüge dann habe ich gerade mal 25 KB. Was mache ich da falsch. Bitte um eure Hilfe.
Gruss u. Dank
Schallbach