☰

ALLE benutzerdefinierten Zellenstile in EXCEL löschen

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vba styles
ALLE benutzerdefinierten Zellenstile in EXCEL löschen

Ist es möglich, ALLE benutzerdefinierten/erstellten Zellenstile in einer Arbeitsmappe zu löschen? Einfach die Standardstile beibehalten.

Ohne sie alle einzeln löschen zu müssen

Bildbeschreibung hier eingeben

Antwort1

Versuchen Sie dieses kleine VBA-Makro:

Sub StyleKiller()
    Dim N As Long, i As Long

    With ActiveWorkbook
        N = .Styles.Count
        For i = N To 1 Step -1
            If Not .Styles(i).BuiltIn Then .Styles(i).Delete
        Next i
    End With
End Sub

Dies löst dasEingebautGegenBrauchProblem. Beachten Sie, dass wir die Schleife ausführenrückwärtsum eine Beschädigung des Schleifenindex zu vermeiden.

Antwort2

Um einfach alles zu entfernen, ohne zu verwenden INDEX, versuchen Sie Folgendes:

Sub StyleKiller()
    Dim st As Style
    On Error Resume Next
    For Each st In ActiveWorkbook.Styles
      If Not st.BuiltIn Then
        st.Delete
      End If
    Next
    On Error GoTo 0
End Sub

Antwort3

All das oben genannte funktioniert, aber unsere Arbeits-PCs sind ziemlich veraltet, sodass die Makros ständig abstürzten. Aus irgendeinem Grund haben viele der Dateien Hunderte von Zellenstilen, was die Dokumente verlangsamt.

Meine Lösung erwies sich als einfach und schnell.

Wählen Sie alle Arbeitsblätter in Ihrer Arbeitsmappe aus und kopieren Sie sie in ein neues Buch. Dadurch bleiben alle externen Links und Formate erhalten, aber die Stile werden nicht kopiert.

Speichern Sie Ihre neue Arbeitsmappe über der alten (schließen Sie zuerst die alte).

Antwort4

Das Thema benutzerdefinierte Stile wird auch diskutiert inhttp://support.microsoft.com/kb/213904

Ich habe festgestellt, dass die Installation des kostenlosen „XLStyles Tool“ aus dem MS Store, wie im KB-Artikel vorgeschlagen, eine sehr bequeme Möglichkeit zum Löschen der benutzerdefinierten Stile ist.

verwandte Informationen