Benötige dringend Hilfe: Tabelle wird immer größer

Hallo,
ich habe heute ein großes Problem, bei dem ich dringend Hilfe benötige:
In einer Tabelle habe ich 5 Blätter, wovon nur 2 größere Daten-/Formelmengen beinhalten.
Auch diese 2 enthalten lediglich ca. 500 bzw. 1000 Zeilen.
Die Datei enthält keine Bilder und auch keine Verweise zu anderen Tabellen, jedoch mehrere Makros.
Nun ist mir aufgefallen, dass die Datei seit einiger Zeit immer größer wird (aktuell ca. 9 MB) und das ohne, dass ich viele Daten hinzufüge.
Ich habe die Vermutung, dass Excel hier evtl. einiges im Hintergrund speichert, ohne dass ich es mitbekomme.
Kann das an Makros liegen, die Message Boxen erstellen und gibt es irgendeinen Trick, das zu vermeiden bzw. vor dem Speichern zu bereinigen ?
Hoffe, Ihr könnt mir weiterhelfen.
VG und vielen Dank im Voraus, Tim

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'löscht alle überflüssigen Zellen Dim lS As String, lZ As String, Letzte As String Sheets("Tabelle1").Select ActiveCell.SpecialCells(xlLastCell).Select Letzte = ActiveCell.Address lS = "U1:" & Letzte & "" lZ = "A1201:" & Letzte & "" With ActiveSheet .Range(lS).Delete .Range(lZ).Delete End With End Sub

Hallo Tim,
noch zwei nützliche Tips.
Direkte Zellbezüge, wie z.B. Range("U1") sind immer eine heiße Kiste. Wenn du später mal eine zusätzliche Spalte einfügst, greift das Makro immer noch auf "U1" zu und nicht auf "V1". Besser ist es, vorsichtshalber in der excel-Tabelle Bereichsnamen zu definieren und sich im Makro darauf zu beziehen. Bei der Namensgebung ist es von Vorteil ein Kürzel des Tabellennamens voranzustellen; das verbessert die Übersichtlichkeit bei mehreren Tabellen in der gleichen Datei. Für die Zelle "U1" in deinem Beispiel könntest du z.B. den Namen Tab1_lS vergeben.
Das Makro lautet dann folgendermaßen:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'löscht alle überflüssigen Zellen
Sheets("Tabelle1").Select
Tab1_lS = Range("Tab1_lS").Offset(0, 1).Address
Tab1_lZ = Range("Tab1_lZ").Offset(1, 0).Address
Dim lS As String, lZ As String, Letzte As String
ActiveCell.SpecialCells(xlLastCell).Select
Letzte = ActiveCell.Offset(1, 1).Address
With ActiveSheet
.Range(Tab1_lS & ":" & Letzte).Delete
.Range(Tab1_lZ & ":" & Letzte).Delete
End With
Range("A1").Select
End Sub

Um die Bereichsnamen zu schützen, würde ich die Spalte "U" und die Zeile "1201" mit dunkelblauem Hintergrund formatieren, die Breite auf 0,42 und die Höhe auf 3,75 reduzieren. Das obige Makro löscht alle Zellen rechts von Spalte "U" und unterhalb der Zeile "1201" bis zur letzten, belegten Zelle (Strg+Ende).
Gruß, Rolf

Beliebteste Forumthreads (12 Monate)

Benötige dringend Hilfe: Tabelle wird immer größer

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

26 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Benötige dringend Hilfe: Tabelle wird immer größer

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

26 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread