Formate übertragen

11/01/2011 - 11:42 von Lothar Wesemann | Report spam
Hallo

Ich verwende ein Makro, das u.a auch Inhalte mit Formaten und Kommentaren
auf ein anderes Blatt zu übertràgt.

Sheets("Abt1").Select
Range("a5:x5").Select
Selection.Copy
Sheets("Abt2").Select
Range("a7:x7").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteComments
Application.CutCopyMode = False


Funktioniert auch.

Das Problem ist, das xlFormats auch die bedingte Formatierung mitkopiert.

Weiss jemand eine Möglichkeit, wie das ohne die bedingte Formatierung geht.

Schrift und Hintergrund werden benötigt.
 

Lesen sie die antworten

#1 Andreas Killer
11/01/2011 - 15:45 | Warnen spam
Am 11.01.2011 11:42, schrieb Lothar Wesemann:

Weiss jemand eine Möglichkeit, wie das ohne die bedingte Formatierung geht.
Schrift und Hintergrund werden benötigt.



Ohne geht das nicht, aber man kann sie ja wieder löschen. Außerdem bitte nie mit Select und Selection arbeiten, bzw.
diese aus einem aufgezeichneten Makro entfernen, ist a.) schneller und b.) gibt keinen Ärger... früher oder spàter.

Andreas.

Sub Test()
Sheets("Abt1").Range("a5:x5").Copy
With Sheets("Abt2").Range("a7:x7")
.PasteSpecial Paste:=xlFormats
.PasteSpecial Paste:=xlPasteComments
.FormatConditions.Delete
End With
Application.CutCopyMode = False
End Sub

Ähnliche fragen