Explosion der Dateigröße
02.04.2006 16:36:32
Dieterlem
ich habe eine Exceldatei geschrieben die 82KB groß war. Danach habe ich per VBA alle nicht mehr benötigten Zeilen ausgeblendet. Es werden alle Zeilen bis auf die letzte verwendete Zeile + 1 ausgeblendet. Wenn ich eine Eingabe in der letzten (freie) Zeile mache wird eine neue freie Zeile eingeblendet. Diesen Code habe ich in das Tabellenblatt geschrieben(siehe unten).
Jetzt ist Sie 25,2 MB groß. Obwohl keine Eingaben dazu gekommen sind.
Woran kann dies liegen?
Hier der Code den ich im Tabellenblatt stehen habe:
Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet
If .ProtectContents Then
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
.Unprotect password:="xxx"
.Rows("7:65536").Hidden = False
.Rows(Range("B65536").End(xlUp).Row + 1 & ":65536").Hidden = True
.protect password:="xxx", DrawingObjects:=False, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End If
End With
End Sub
Wäre toll wenn jemand eine Idee hat warum sich die Datei so explosionsartig vergrößert hat.
Gruß
Dieterlem
Anzeige