Kopieren Sie die bedingte Formatierung von einer Zelle zu einer anderen mit VBA?

Kann ich kopieren Sie die bedingte Formatierung von einer Zelle zu einer anderen mit VBA?

Ich mir vorstelle, so etwas wie:

Sheets("A").Range("A1:A10").ConditionalFormatting = Sheets("B").Range("B1").ConditionalFormatting
  • es ist nicht ein spezifisch einfügen-option, für die Sie bedingte Formate, aber es ist ein verschmelzen , so lange, wie die Zielzellen, haben dont einen einzigartigen bedingte Formatierung in den Zellen, dann können Sie mit "kopieren" und "einfügen Spezial" mit Typ "xlPasteAllMergingConditionalFormats"
  • Ich würde vorschlagen, Sie verwenden die FormatConditions.ModifiesApplyToRange Methode. Das wird nur funktionieren, wenn die Bedingte Formatierung ist auf dem gleichen Blatt obwohl.
InformationsquelleAutor user1283776 | 2015-02-07
  1. 1

    verwenden:

    Sub test()
     Sheets("B").[B1].Copy: Sheets("A").[A1:A10].PasteSpecial xlPasteFormats
End Sub
    InformationsquelleAutor Vasily Ivoyzha
Schreibe einen Kommentar