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

Nach oben Sitemap
Impressum & Kontakt