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

Tabelle von unbenutzten Tab-Zeichen aufgeblasen

Tabelle von unbenutzten Tab-Zeichen aufgeblasen
01.04.2008 22:14:08
unbenutzten
Hallo und Hilfe,
ich habe in einem Tabellenblatt meine Datenwerte, die ich als Ausgangsmaterial für meine
Berechnungen brauche, gespeichert. Es sind zwar nicht so viele, aber die Tabelle wurde
dadurch - unüblicherweise - extremst aufgeblasen. Das Blatt enthält ein paar Tausend
Daten und keine einzige Formel.
Als erstes probierte ich Kopieren-Werte einfügen. Gleiche Größe.
Eine Überprüfung des Blattes durch einen Export als Textfile hat ergeben, daß zwischen den
Werten hundert-tausende Tab-Zeichen sind. Suchen-Entfernen in Word führt dazu daß Word
regelmäßig einfriert. Jetzt nervts langsam.
Kann man eine Tabelle in Excel - wie auch immer - von überflüssigem Kram befreien? Durch ein
VBA-Script oder irgend eine kluge Aktion?
Bin für jeden Tipp dankbar,
Born

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

Betreff
Datum
Anwender
Anzeige
AW: Tabelle von unbenutzten Tab-Zeichen aufgeblasen
01.04.2008 23:13:00
unbenutzten
Hallo,
ich weis nicht genau was für Zeichen für dich unnötig sind.
Schau dir mal die Hilfe unter Zeichensatz (0 - 127) und Zeichensatz (128 – 255) an.
Dieses Makro löscht alle Zeichen von 1 bis 32 in allen Tabellenblättern.
Funktioniert unter Office 2003, unter 2007 kann ich es nicht testen.

Sub LöscheZeichen()
Dim a As Byte, b As Byte
Application.ScreenUpdating = False
For a = 1 To 32 ‘Zeichen 1 bis 32 löschen
For b = 1 To ThisWorkbook.Sheets.Count
Sheets(b).Cells.Replace What:=Chr(a), Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next b
Next a
Application.ScreenUpdating = True
End Sub


Gruß
Tino

Anzeige
AW: Tabelle von unbenutzten Tab-Zeichen aufgeblase
02.04.2008 01:50:55
unbenutzten
Hey Tino,
danke. Werde ich gleich morgen ausprobieren.
Unnötig sind die Zeichen, die die Tabelle aufblasen und Speicher kosten, ohne eine Funktion zu
haben. Ich hab gerade mühsam einige Dutzen tausend Tab-Zeichen über Word aus meiner
Datentabelle rausgelöscht. Das müßte doch auch mit irgendeinem Tool gehen. Dachte ich mir.
Born

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige