Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Arbeitsblatt- und Dateigröße

Forumthread: Arbeitsblatt- und Dateigröße

Arbeitsblatt- und Dateigröße
21.08.2002 11:44:25
Steffen
Hallo,

ein Problem, was öfter auftaucht ist die plötzliche Vergrößerung der Dateigröße bzw. des Arbeitsblattes z.b. nach irgendwelchen Formatierungen.
Im Arbeitsblatt äussert sich dies, indem die vertikale Bildlaufleiste sich "zusammenzieht". Hat man bspw. eine Datei mit 200 Zeilen sollte am rechten Rand eine ordentlich breite Bildlaufleiste stehen. Nach den Formatierungen oder sonst welchen Aktionen ist diese Leiste total schmal. Gleichzeitig steigt die Dateigröße auf ein paar hundert KB an, zuviel für die paar Zahlen.

Hat jemand einen Tip, wie dieses Problem zu beheben ist. Die Methode "neues Blatt anlegen und Datenbereich reinkopieren" kenne ich, ist aber problematisch wenn andere Blätter sich auf das Problemblatt beziehen bzw. externe Verknüpfungen vorhanden sind, die nicht verfügbar sind

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Arbeitsblatt- und Dateigröße
21.08.2002 12:59:52
Udo RiHü
Hallo,
das Problem taucht ab und zu auf. Ich helfe mir mit einem Makro, das alle Zellen außerhalb der Markierung löscht.

Sub Rest_loeschen()
Dim C, C1, R, R1

C = Selection.Column
C1 = Selection.Columns.Count
R = Selection.Row
R1 = Selection.Rows.Count

Wrng = MsgBox("Alle unmarkierten Zellen werden unwiederruflich gelöscht!", 273)
If Wrng <> vbOK Then Exit Sub

If C > 1 Then
Range(Cells(1, 1), Cells(1, C - 1)).EntireColumn.Delete
End If

If R > 1 Then
Range(Cells(1, 1), Cells(R - 1, 1)).EntireRow.Delete
End If
Range(Cells(1, C1 + 1), Cells(1, 256)).EntireColumn.Delete
Range(Cells(R1 + 1, 1), Cells(65536, 1)).EntireRow.Delete

Range(Cells(1, 1), Cells(R1, C1)).Select
End Sub

Gruss Udo

Anzeige
Re: Arbeitsblatt- und Dateigröße
22.08.2002 16:39:54
Steffen
Vielen Dank für den super Tip. Dateigröße nach Speichern nur noch 60%. It works!
Gruss Steffen
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige