Frage stellen

Zellen kopieren mit Formatierungen aber ohne formeln

1.6k Aufrufe
Gefragt in Tabellenkalkulation von
Hallo liebes Forum,

ist es möglich Zellen zu kopieren, dabei die Formatierungen mitzunehmen aber nicht die Formeln die sich dahinter verstecken.

Es gibt bereits einen EIntrag dazu in einem anderem Forum, die haben aber keine Lösung gefunden um meinen gewüschten Kopiervorgang in einem Wisch zu machen, sondern nur mit der "Steinzeitmethode" : 2 mal kopieren.

Seit ihr schlauer?

VG

Eric

7 Antworten

0 Punkte
Beantwortet von
Hier noch der Beitrag aus dem anderen Forum :

http://www.ms-office-forum.net/forum/showthread.php?t=274434
0 Punkte
Beantwortet von rainberg Profi (14.9k Punkte)
Hallo EricL,

der gepostete Link nützt leider nichs, besser wäre Du hättest eine Beispielmappe gepostet, in der Du erklärst, was von wo nach wo transferiert werden soll.

Gruß
Rainer
0 Punkte
Beantwortet von
He Rainer,

ich beziehe mich auf den Kopier COde bei dem du mir schon geholfen hast.

Worksheets("Netznutzungseingangsrechnung").Range("A8:C" & Worksheets("Netznutzungseingangsrechnung").Cells(Rows.Count, 1).End(xlUp).Row).Copy
Worksheets("Parameter Seite").Range("A" & Worksheets("Parameter Seite").Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Dieser Code funktioniert an sich einwandfrei. Leider werden aber keine Formatierungen mitkopiert. Hin und wieder habe ich aber der übersichtshalber Zellen Farbig unterlegt oder Fett markiert. Diese Sachen fehlen bei dem Code oben leider.

Vg
Eric
0 Punkte
Beantwortet von rainberg Profi (14.9k Punkte)
Hallo Eric,

kann mich zwar nicht erinnern, Dir diebezüglich geholfen zu haben, aber so sollte es funktionieren.

Option Explicit
Sub test()
Worksheets("Netznutzungseingangsrechnung").Range("A8:C" & Worksheets("Netznutzungseingangsrechnung").Cells(Rows.Count, 1).End(xlUp).Row).Copy _
Worksheets("Parameter Seite").Range("A" & Worksheets("Parameter Seite").Cells(Rows.Count, 1).End(xlUp).Row + 1)
Application.CutCopyMode = False
End Sub


Gruß
Rainer
0 Punkte
Beantwortet von
Hey Rainer,

perfekt. Funktioniert einwandfrei.

Kannst du mir auch noch erklären was der Unterschied zw. denen Codes ist die hier gepostet wurden bzw wie deiner funktioniert.

Danke für deine schnelle Hilfe. TOP

Gruß Eric
0 Punkte
Beantwortet von
Ups, sorry.

Leider kopiert der Code jetzt neben den Formatierungen aber immer noch auch die Formeln die sich in den Zellen verbergen.

Wenn beispielsweise in der Zelle A8 die Zahl 5 steht die sich aus D8+E8 ergibt und diese Zelle ist rot markiert, dann soll nach dem Kopiervorgang auf dem neuen Blatt eine 5 in der ZielZelle stehen die rot markiert ist. Bislang wird aber auch noch die Formel kopiert.

Gruß
Eric
0 Punkte
Beantwortet von rainberg Profi (14.9k Punkte)
Hallo Eric,

beim 1. Code werden nur Werte eingefügt, was durch diesen Codeteil
.PasteSpecial Paste:=xlPasteValues
ausgelöst wird, den ich im 2. Code gelöscht habe.

Außerdem muss kopieren und einfügen in einer Codezeile angeordnet sein

Z.B. in Kurzform

Worksheets("Tabelle1").Range("A1:A100").Copy Worksheets("Tabelle2").Range("B1")

Kopiert A1:A100 aus Tabelle1 und fügt in Tabelle2 B1 ein.

Ist die Codezeile zu lang und unübersichtlich, kann sie aus so geschrieben werden.
Worksheets("Tabelle1").Range("A1:A100").Copy _
Worksheets("Tabelle2").Range("B1")


Gruß
Rainer
...