Wenn Sie mit anderen Personen arbeiten, die Excel verwenden, ist es nicht ungewöhnlich, Arbeitsblätter aus ihren Arbeitsmappen in Ihre eigene Arbeitsmappe zu kopieren. Wenn Sie dies tun, wird nicht nur das Arbeitsblatt kopiert. Excel kopiert auch die Formatierungsstile in Ihre Arbeitsmappe. Das manuelle Löschen unerwünschter Stile kann je nach Anzahl der Stile problematisch sein. Das Entfernen benutzerdefinierter Stile ist jedoch sehr einfach, wenn Sie ein Makro verwenden. Das folgende Makro löscht schnell die unerwünschten Stile:

Sub StyleKill()

Dim styT As Style     Dim intRet As Integer

For Each styT In ActiveWorkbook.Styles         If Not styT.BuiltIn Then             intRet = MsgBox("Delete style '" & styT.Name & "'?", vbYesNo)

If intRet = vbYes Then styT.Delete         End If     Next styT End Sub

Das Makro benötigt nur eine kleine Benutzereingabe. Immer wenn das Makro einen benutzerdefinierten Stil erkennt, werden Sie gefragt, ob Sie ihn löschen möchten. Durch Klicken auf die Schaltfläche Ja wird der Stil aus der Arbeitsmappe entfernt.

Sie sollten sich der Einschränkungen eines solchen Makroansatzes bewusst sein.

Die größte Einschränkung besteht darin, dass dieses Makro diese Beschädigung nicht behebt, wenn Ihre Arbeitsmappe in irgendeiner Weise beschädigt ist (und ja, es ist sehr wahrscheinlich, dass die Stile in einer Arbeitsmappe beschädigt sind). Stattdessen möchten Sie vielleicht eine praktische Lösung von Drittanbietern (XLStylesTool) in Betracht ziehen, die Wunder wirken kann, wenn Sie Ihre Stile umfassender bereinigen müssen. Weitere Informationen zu XLStylesTool finden Sie hier:

https://sergeig888.wordpress.com/2011/03/21/net4-0-version-of-the-xlstylestool-is-now-available/

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (12259) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.

Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: Löschen unerwünschter Stile.