Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
192to196
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
192to196
192to196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateigrösse wird nur unwesentlich kleiner

Dateigrösse wird nur unwesentlich kleiner
16.12.2002 21:18:13
Karl
Hallo xl-Experten !
Eine umfangreiche Arbeitsmappe mit etlichen Makros wollte ich
verkleinern, indem ich mehrere Arbeitsmappen erstellt habe und anschliessend nur noch die relevanten Blätter in der jeweiligen Mappe belassen habe.
Problem: Die Speichergrösse der Arbeitsmappen haben sich nur unwesentlich verkleinert !
Frage: An was kann das liegen ? Gibt es hier einen Trick, ausser unter einem anderen Namen zu speichern ?
Danke für eure Hilfe.
Gruss, Karl

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Dateigrösse wird nur unwesentlich kleiner
16.12.2002 21:20:51
Georg_zi
Hallo Karl

hat Du mal in den Tabellen überprüft ob das Ende der Tabelle (Strg+Ende) mit dem Ende Deiner Tabelle übereinstimmt.

Gruß Georg

Dateieinde bei einem Blatt falsch. Wie gibts das ?
16.12.2002 21:28:00
Karl
Hallo Georg !
Bei einem Blatt stimmt Dateiende (Strg+Ende) nicht mit Tabellenende überein,
sonder steht bei C309.
Wie kommt das ?
Wie kann ich das ändern ?
Danke für die Hilfe!
Gruss, Karl
Re: Dateieinde bei einem Blatt falsch. Wie gibts das ?
16.12.2002 21:33:40
Georg_zi
Hallo Karl

lösche die überflüssigen Zeilen und Speichere die Datei.

Dafür gibt es auch ein Makro


Option Explicit

Sub Leerzeilenlöschen()
' Leerzeilen löschen einschließlich der Zeilen die entstehen wenn Zeilen am ende
' gelöscht werden
' von Wolf.W.Radzinski
On Error Resume Next
Dim r As Range
Dim anz As Long
Dim c_ges As Long
Dim col As New Collection
c_ges = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
For Each r In ActiveSheet.UsedRange.EntireRow
anz = 0
anz = r.SpecialCells(xlCellTypeBlanks).Count
If anz >= c_ges Then col.Add r
Next
For Each r In col
r.Delete
Next
End Sub

Code eingefügt mit: Excel Code Jeanie

Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein

Gruß Georg

Anzeige
Danke !
16.12.2002 21:45:25
Karl
Danke für die Hilfe !
Gruss, Karl

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige