Alle Bedingten Formatierungen suchen und löschen

Thema: Alle Bedingten Formatierungen suchen und löschen

Zwei Fragen:

Wie löscht man nur die Tabellenblätter, in denen sich keine bedingten Formatierungen befinden?

Wie löscht man alle bedingten Formatierungen in einem Tabellenblatt per VBA?

Danke!

Hier das Makro zum Löschen der betreffenden Tabellenblätter:

Sub blaetter_loeschen()
Dim cnt As Long, wks As Worksheet

Application.DisplayAlerts = False

For Each wks In ActiveWorkbook.Worksheets
 With wks
  cnt = 0
  On Error Resume Next
  cnt = .Cells.SpecialCells(xlCellTypeConstants).Count
  cnt = cnt + .Cells.SpecialCells(xlCellTypeAllFormatConditions).Count
  cnt = cnt + .Cells.SpecialCells(xlCellTypeAllValidation).Count
  cnt = cnt + .Cells.SpecialCells(xlCellTypeConstants).Count
  cnt = cnt + .Cells.SpecialCells(xlCellTypeComments).Count
  cnt = cnt + .Cells.SpecialCells(xlCellTypeFormulas).Count
  cnt = cnt + .OLEObjects.Count
  cnt = cnt + .Shapes.Count
  If cnt = 0 Then .Delete
 End With
Next

Application.DisplayAlerts = True

End Sub

Alle bedingten Formatierungen löscht man am besten nicht per Makro, sondern schnell per Hand:
- Klick in den Zeilen- und Spaltenschnittpunkt (oben links), oder per STRG + A die komplette Tabelle markieren.
- dann: Menü Bearbeiten - Löschen - Formate.

Bei Excel 2007: Bedingte Formatierung - Regeln löschen - Regeln im gesamten Blatt löschen.

Wer auf das Makro besteht - bitteschön:

Sub test1()
  Cells.ClearFormats
End Sub

Lesen Sie auch Tipps zum Thema Backup Albtraum Datenverlust: Backups beugen vor

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt