(Sehr viele) Formatvorlagen löschen

[Torsten]

In sehr vielen historischen Dokumenten, mit denen ich arbeite, befinden sich je so 2-300 überflüssige Formatvorlagen.

Ich suche einen effizienten Weg zur Entfernung dieser Dateivorlagen, ohne dabei die Standardformatvorlagen mit zu entfernen.

Beispieldatei anbei.

[Glausius]

Hallo Torsten,

da hilft dir VBA mit einem Makro weiter, in welches du eingibst ab welcher Spalte und ab welcher Zeile alles andere gelöscht werden soll.
Das ist schnell erstellt und läßt sich in jede Datei, die bereinigt werden soll, kopieren und anschließend auch wieder entfernen.

[Torsten]

Hallo Glausius,

ich vermute, Du meinst die Formatierung. Es geht mir um den Katalog der Formatvorlagen,
aus dem Formatvorlagen nur einzeln gelöscht werden können.


Auch das geht mit VBA, leider könnte ich das aber selber nicht erstellen. Dafür würde ich um Unterstützung bitten.

[Kuwer]

Hallo Torsten,

Sub BenutzerdefinierteFormatvorlagenKillen()
 Dim objStyle As Style
 For Each objStyle In ActiveWorkbook.Styles
   If Not objStyle.BuiltIn Then objStyle.Delete
 Next objStyle
End Sub

Gruß Uwe

[Kuwer]

Hallo Torsten,

Deine Beispieldatei enthält 35169 Benutzerdefinierte Formatvorlagen, weshalb das Makro einige Zeit braucht.

Gruß Uwe

[Torsten]

Vielen herzlichen Dank, Uwe! 

Diese riesige Anzahl an Formatvorlagen macht teilweise auch die Dateien riesig und brachte sie scheinbar zum Abstürzen.