Clever-Excel-Forum

Normale Version: (Sehr viele) Formatvorlagen löschen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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.
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.
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.
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
Hallo Torsten,

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

Gruß Uwe
Vielen herzlichen Dank, Uwe! 

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