Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
148to152
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige