Makro: Spalte mitsamt Formeln kopieren

[chrjh]

Hi Leute. Gibt es einen möglichst einfachen Weg mithilfe eines Makros eine komplette Spalte inklusive Formeln zu kopieren und einzufügen? 
Ich schaffe es schon die gewünschten Spalten zu kopieren und einzufügen, nur werden leider nicht die Formeln übernommen.
Der Code sieht bisher so aus:

Sheets(4).Range("R1:U200").Value = Sheets("Vorlage").Range("A1:D200").Value

Schonmal vielen Dank für eure Hilfe!

[chrjh]

Hat sich erledigt. Habe im englischsprachigen Forum eine Antwort gefunden. Der Code sieht jetzt so aus:
Sheets("Vorlage").Range("A1:D200").Copy _
        Destination:=Sheets(4).Range("R1:U200")

[IchBinIch]

Hi,

so:

Code:

Sheets(4).Range("R1:U200").Copy Destination:=Sheets("Vorlage").Range("A1")

Gruß
Ich

Oder andersherum wie in Deinem Fall :32:

[Kuwer]

Hallo,

Sheets("Vorlage").Range("A1:D200").Copy Sheets(4).Range("R1")

Gruß Uwe

[chrjh]

Hallo,

Sheets("Vorlage").Range("A1:D200").Copy Sheets(4).Range("R1")

Gruß Uwe

Gibt es vielleicht auch noch die Möglichkeit die Formatierung mit zu kopieren?
Gruß Chrjh

[Kuwer]

Gibt es vielleicht auch noch die Möglichkeit die Formatierung mit zu kopieren?
Gruß Chrjh

Hallo,

was wird denn nicht mit kopiert?

Gruß Uwe

[chrjh]

Hallo,

was wird denn nicht mit kopiert?

Gruß Uwe

Hallo,

Eigentlich geht's mir erstmal nur um die Spaltenbreite.

Gruß

[Kuwer]

Eigentlich geht's mir erstmal nur um die Spaltenbreite.

Hallo,

das geht nur mit der PasteSpecial-Methode:

Sheets("Vorlage").Range("A1:D200").Copy
With Sheets("Tabelle4").Range("R1")
 .PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 .PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With

Gruß Uwe

[chrjh]

Werde das mal ausprobieren! Nochmals vielen Dank für deine schnelle Hilfe!
Gruß Chris