.Interior.ColorIndex entfernet die Zellenrahmen?!

Question

Hallo zusammen!

Ich muss von ein paar Zellen immer nur die Hintergrundfarbe
kopieren und an
einer anderen Stelle wieder einfügen.

Hab mir mit VBA auch schon was zusammengeschustert, nur eine
Sache stört
mich extrem und ich hoffe ihr könnt mir weiterhelfen:

Ich kopiere wie schon gesagt den Zellenhintergrund mit bspw. von
A1 nach D1:

Range("D1").Interior.ColorIndex =
Range("A1").Interior.ColorIndex

Passt auch alles, nur wird beim einsetzen jedesmal der verflixte
Zellenrahmen
"entfernt".... Also ich meine er wird weiß und ist nicht mehr zu sehen...

Hat jemand ne Lösung für mich :-)

Answer 1

Hallo Claudia,

probier's mal so

Range("A1").Copy
Range("D1").PasteSpecial Paste:=xlPasteFormats

Gruß
Rainer

Answer 2

hi :-)

das ist schon so gewollt ^^

nutze die richtige syntax

statt zu kopieren nimm den index der jeweiligen farbe,dann klappt es auch mit dem rahmen :-))

Range("b3").Interior.ColorIndex = 3

gruss nighty

Answer 3

Hi Claudia,

das, was du normalerweise auf einem Tabellenblatt siehst, sind nicht die Zellrahmen sondern die Gitternetzlinien und diese sind natürlich nicht mehr zu sehen, wenn du die Füllfarbe änderst, da die Füllfarbe die Zelle komplett füllt. Wenn du einen Rahmen um die Zelle benötigst, dann musst du auch einen "richtigen" Rahmen setzen.

Bis später,
Karin

Answer 4

Ich denke, Beverlys Bemerkung geht in die richtige Richtung.

Der (völlig korrekte) Befehl

Range("D1").Interior.ColorIndex = Range("A1").Interior.ColorIndex

entfernt bei mir keine Rahmenformatierungen, falls welche vorhanden sind.
(probiert mit Excel 2003 und 2010)

mfg, Massaraksch.