Hintergrund kopieren VBA

[Homer89]

Hallo zusammen,

ich habe in einer Tabelle1 eine Bedingte Formatierung die die Hintergrundfarbe bestimmt (Bereicht B2:D4).
Nun möchte ich aber den Bereich mit VBA kopieren und in Tabelle2 in B3:D5 einfügen, also Hintergrundfarbe und Zellwert. 

Die Bedingte Formatierung soll aber nicht mit kopiert werden.

Vielen Dank im voraus.

Nicolai

[Steffl]

Hallo,

ich habe in einer Tabelle1 eine Bedingte Formatierung die die Hintergrundfarbe bestimmt (Bereicht B2:D4).
Nun möchte ich aber den Bereich mit VBA kopieren und in Tabelle2 in B3:D4 einfügen, also Hintergrundfarbe und Zellwert.

Die Bedingte Formatierung soll aber nicht mit kopiert werden.

beißt das sich nicht irgendwie? Bedingte Formatierung bestimmt Hintergrund soll aber nicht kopiert

[Homer89]

Hallo Steffl,

der Hintergrundfarbe soll kopiert werden, aber nicht die Regeln von der bedingten Formatierung.

Viele Grüße,

Nicolai

[Steffl]

Hallo Nicolai,

die Hintergrundfarbe einer bedingten Formatierung auszulesen ist nicht ganz einfach siehe Suchergebnis.

Das ist für mich nicht lösbar und stelle den Thread offen.

[Helvetier]

Hallo Nicolai
Du kannst natürlich die Bedingungen der Formatierung im Makro einfügen und dann jede Zelle abklappern und einfärben lassen. Oder Du kannst eine Kopie auch mit Printscreen erstellen. Beides ist aber doch etwas komisch.....

[Igelbauer]

Hi
Gerade weil man diese Farben nur schwer kopieren kann, nehme ich auch selten die bedingte Formatierung.
Auch wenn es zunächst etwas aufwändiger ist färbe ich meistens per Makro. Das sind dann auch "richtige" Zellfarben, die man kopieren kann.

Gruss Igel

[Kuwer]

Hallo Nicolai,

Sub def()
 Dim lngZ As Long
 Dim rngQ As Range, rngZ As Range
 Set rngQ = Range("Tabelle1!B2:D4")
 Set rngZ = Range("Tabelle2!B3:D5")
 rngZ.Value = rngQ.Value
 For lngZ = 1 To rngQ.Cells.Count
   rngZ(lngZ).Interior.Color = rngQ(lngZ).DisplayFormat.Interior.Color
 Next lngZ
End Sub

Gruß Uwe

[losgehts]

Hallo Uwe,

schade, ich hatte mir deinen bei mir deinen Code schon in meiner Sammlung abgelegt, weil ich mir gut vorstellen kann, dass ich den mal irgendwann brauchen könnte. Doch unter Excel2007 läuft er bei mir leider nicht. "Range.DisplayFormat" gibt es wohl erst ab späteren Versionen.

Er bleibt trotzdem in der Sammlung . Vielen Dank!

Viele Grüße,
Ulrich

[Kuwer]

Hallo Ulrich,

"Range.DisplayFormat" gibt es wohl erst ab späteren Versionen.

ja, das gibt es leider erst ab Excel 2010.

Gruß Uwe