[Excel] Formatvorlagen löschen, zurücksetzen oder sperren

[AuPfusch]

Hey Leute,

ich sitze seit einiger Zeit vor einem Problem. Ich habe eine relative Große Exceltabelle bei der mittlerweile die Grenze der maximal möglichen Zellenformatierungen erreicht ist (Fehler: "Zu viele verschiedene Zahlenformate"). Scheinbar hat er jedes Mal beim Kopieren die Zellenformate auch Kopiert und verdoppelt.

Wie sorge ich jetzt dafür, dass die benutzerdefinierten Formate gelöscht werden? Die Googlesuche hat mir nicht weitergeholfen. Bei gefundenen Markolösungen stürzt Excel ab.

Wie sperre ich das Dokument so, dass weiterhin keine Zellenformate sondern nur die Werte bzw. Berechnungen übernommen werden? Problem hierbei ist, dass dieses kleine Popupfenster, wo ich definieren kann was kopiert werden soll, nicht immer auftaucht und "Inhalt einfügen" geht auch nicht.

Es wäre klasse, wenn ihr mir weiterhelfen könntet.

Gruß Sven

 

[Drogist]

Moin DerUnterjocher,

fangen wir doch einmal damit an, dass du uns deine Excel-Version verrätst. Dann können wir gezielt fragen ...

 

[AuPfusch]

Hey,

ja 2007 aber ich habe die Lösung schon selber gefunden.

Hier habt ihr das Makro

.................................................................................................

Attribute VB_Name = "Modul1"
Sub Formatelöschen()


MsgBox (ActiveWorkbook.Styles.Count)


Dim i

For i = ActiveWorkbook.Styles.Count To 1 Step -1
'For i = 20 To 1 Step -1

With ActiveWorkbook
.Styles(i).Delete
End With

Next

MsgBox (ActiveWorkbook.Styles.Count)

End Sub