Styles löschen

03/11/2008 - 16:35 von Hervé RICHARD | Report spam
Hallo NGs,

beim Öffnen der Datei werden jede Menge Styles angelegt.
beim Schliessen, um Platz zu sparen, sollten diese Styles aber wieder
gelöscht werden.
wenn ich eine Schleife à la:

For i = 1 To ActiveWorkbook.Styles.Count
ActiveWorkbook.Styles(i).Delete
Next

mache, kriege ich eine Fehlermeldung "Laufzeitfehler 1004".

wenn ich Debug.Print ActiveWorkbook.Styles(i).Name einfüge um
den misterösen Style zu identifiezieren kriege ich eine Flehlermeldung...

wie kann ich, um "aufzuràumen" alles Styles einfach löschen, ohne Stress ?

Danke.
 

Lesen sie die antworten

#1 Claus Busch
03/11/2008 - 17:26 | Warnen spam
Hallo Hervé,

Am Mon, 3 Nov 2008 07:35:01 -0800 schrieb Hervé RICHARD:


beim Öffnen der Datei werden jede Menge Styles angelegt.
beim Schliessen, um Platz zu sparen, sollten diese Styles aber wieder
gelöscht werden.
wenn ich eine Schleife à la:

For i = 1 To ActiveWorkbook.Styles.Count
ActiveWorkbook.Styles(i).Delete
Next

mache, kriege ich eine Fehlermeldung "Laufzeitfehler 1004".



das sollte eigentlich reichen:
With ActiveWorkbook
.Styles(1).Delete
End With


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP3 / Vista Ultimate
Office 2003 SP3 / 2007 Ultimate SP1

Ähnliche fragen