|
Der Vorgang "Inhalt" löschen im Reiter "Ausfüllen" besteht im Prinzip aus drei Teilschritten.
Beispiel für eine Zelle:
With Range("A1").FormatConditions(1).Interior
'# "Inhalt löschen"
'Hintergrundfarbe zurücksetzen
.ColorIndex = XlColorIndex.xlColorIndexAutomatic
'Muster zurücksetzen
.Pattern = XlPattern.xlPatternNone
'Farbindex des Musters zurücksetzen
.PatternColorIndex = XlColorIndex.xlColorIndexAutomatic
'#
End With
Das Problem daran ist jedoch hier, alle anderen Zellen, welche die gleiche FormatCondition verwenden, werden ebenfalls von dieser Änderung betroffen.
Demnach wäre es schon ausreichen, über die FormatConditions zu iterieren und diese zu bearbeiten. Das wirkt sich dann automatisch auf alle Zellen aus die diese verwenden. Mir ist jetzt nur noch nicht ganz klar, welchen Sinn es hat die Autoformatierungen zu bearbeiten, anstatt sie vollständig zu entfernen.
Das mit dem Wert "1" habe ich noch nicht ganz nachvollziehen können.
Die -4142 ist der Wert der sich hinter xlNone bzw. xlPatternNone verbirgt und diese Konstanten stehen dafür, dass diese Eigenschaft sich in ihrem Urzustand befindet bzw. keinen anderweitig definierten Zustand hat - in diesem Fall also kein Muster besitzt.
|