pcwtabcleaner Frage

Hallo,

ich arbeite viel (nahezu ausschließlich) mit Excel.
Daher habe ich mal das neue Tool pcwtabcleaner ausprobiert.
Das Teil bearbeitet leider nur die aktuelle Tabelle, selbst wenn in der Datei mehrere Tabellenblätter enthalten sind.
Es sieht zwar danach so aus, als ob die Zellformate weniger geworden wären, aber in Wirklichkeit ist das erst nach dem Schließen (mit speichern) und öffnen der Fall. Ist das eine Eigenheit von Excel oder kann da das Tool nachgebessert werden?
Speichern alleine reicht nicht aus, um die Anzahl der Formate zu reduzieren.
Dies lässt sich nämlich mit einem anderen Addin ermittlen, siehe:
http://www.xlam.ch/products/cefa-toolbox/cellformatcounter.htm

In großen Dateien komme ich ab und zu (hin und wieder) an die berüchtigte Grenze mit der Meldung:
"Zuviele verschiedene Zellformate"
Dafür wollte ich das pcwtabcleaner einsetzen, aber das macht das nur in einem Tabellenblatt, und zwar in dem aktuellen. Wenn die aktuelle Datei aber 500 Tabellen und mehr Tabellen enthält ist das eine mühselige Angelegenheit

Danke für Antwort

ruehbezahl

 

Hallo,

habe soeben festgestellt, dass der Code nicht geschützt ist und ich selbst Änderungen vornehmen kann.
Habe ebenso festgestellt, dass das lange braucht und unnötigerweise bei 15 Leerzeilen bzw. 15 Leerspalten abbricht.

Mit dieser Änderung läuft es schneller, wobei ich mit der Spaltenlösung noch nicht zufrieden bin. da melde ich mich nochmal:
'Leere Zeilen und Spalten
If leere = 1 Then
Zeile = ActiveSheet.UsedRange.Rows.Count
Do
leer = Application.WorksheetFunction.CountBlank(Range(Cells(Zeile, 1), Cells(Zeile, 256)))
If leer = 256 Then
Rows(Zeile).Delete
End If
Zeile = Zeile - 1
Loop While Zeile > 0

spalte = ActiveSheet.UsedRange.Columns.Count
Do
Cells(1, spalte).Select
leer = Application.WorksheetFunction.CountBlank(Range(Cells(1, spalte), Cells(65536, spalte)))
If leer = 65536 Then
Columns(spalte).Delete
End If
spalte = spalte - 1
Loop While spalte > 0
End If

Gruß ruehbezahl