Wieso ist meine Datei so groß ?
12.12.2006 10:22:46
Enrico
Ich habe eine Excel Datei mit 18 Sheets
In jedem Sheet sind nur die ersten 30 Zeilen
und 3 Spalten beschrieben.
Außerdem hängt an jedem Sheet ein Makro
.........
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Station As Variant
Dim Nutzer As Variant
If Application.UserName = "XXX" Then Nutzer = "AAA BBB" Else _
If Application.UserName = "XXX" Then Nutzer = "AAA BBB" Else _
If Application.UserName = "XXX" Then Nutzer = "AAA BBB" Else _
If Application.UserName = "XXX" Then Nutzer = "AAA BBB" Else _
If Application.UserName = "XXX" Then Nutzer = "AAA BBB" Else _
If Application.UserName = "XXX" Then Nutzer = "AAA BBB" Else _
If Application.UserName = "XXX" Then Nutzer = "AAA BBB" Else _
If Application.UserName = "XXX" Then Nutzer = "AAA BBB" _
Else Nutzer = Application.UserName
If Target.Column = 3 Then
If Range("A3") = "" Then
Range("a3") = "Übergabe - " & Format(Weekday(Range("E5")), "dddd") & " " & Format(Range("E5"), "dd. mmmm YYYY") _
& " - " & Range("E7") & "schicht"
End If
End If
End Sub
...............
Meine Datei ist jetzt 20 MB groß.
Nur die ersten 2 Sheets haben 1,5 MB.
Ist das normal ?
belegt jedes Sheet so viel Speicherplatz ?
Anzeige