bedingte Formatierung kopieren

Hallo Ihr
Nachdem ich lange genug gesucht habe und nur Lösungen gefunden habe, die nicht funktionieren, versuche ich es wieder hier.
Das Problem:
Ich möchte eine umfangreiche bedingte Formatierung in eine andere Exceldatei kopieren.
Und zwar wirklich nur die bedingte Formatierung.
Alles andere, also Format, Inhalt soll erhalten bleiben.
Der Pinsel funktioniert natürlich nicht, da der alle Formate überträgt.
Auch den Trick mit Inhalte einfügen alle zusammenführenden bedingten Formate
funktioniert nicht, da, warum auch immer, dabei ebenfalls die Formate und zusätzlich auch die Inhalte mit kopiert werden.
Bin einigermassen ratlos. Da es sich um mehrere 100 Zellen handlet, kann ich das vergessen, die alle nochmals neu anzulegen.
Über eine praktikable Lösung würde ich mich echt freuen
Viele Grüße
Edmund

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim FC Dim UR On Error Resume Next For Each FC In ThisWorkbook.Worksheets(1).UsedRange.SpecialCells( _ xlCellTypeAllFormatConditions).FormatConditions Debug.Print "AppliesTo: ", FC.AppliesTo.Address 'Debug.Print "ColorScaleCriteria: ", FC.ColorScaleCriteria.Count Debug.Print "Formula: ", FC.Formula Debug.Print "Priority: ", FC.Priority Debug.Print "PTCondition: ", FC.PTCondition Debug.Print "ScopeType: ", FC.ScopeType Debug.Print "StopIfTrue: ", FC.StopIfTrue Debug.Print "Type: ", FC.Type Next End Sub

Hallo Edmund,
alle Formatierungen zu löschen ist in dem Fall wesentlich einfacher.
Man kann auf eine Referenzzelle die Formate lesen:

Sub FormatEinerZelle_lesen()
With ActiveCell
Debug.Print "FontStyle: ", .Font.FontStyle
Debug.Print "FontName:", .Font.Name
Debug.Print "FontSize: ", .Font.Size
End With
End Sub

Und dann anwenden (anpassen wenn nötig)

Sub AufZellen_anwenden()
With ThisWorkbook.Worksheets("Tabelle1").UsedRange
.Interior.Pattern = xlNone
.Interior.TintAndShade = 0
.Interior.PatternTintAndShade = 0
.Font.Italic = False
.Font.Bold = False
.Font.Underline = False
.Font.ColorIndex = xlAutomatic
.Font.TintAndShade = 0
.Font.Name = "Calibri"
.Font.Size = 11
End With
End Sub

(per Makro-Recorder gesammelt. Kein Anspruch auf Vollständigkeit)
Viel Erfolg
Yal

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

bedingte Formatierung kopieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread