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!
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")
Hi,
so:
Code:
Sheets(4).Range("R1:U200").Copy Destination:=Sheets("Vorlage").Range("A1")
Gruß
Ich
Oder andersherum wie in Deinem Fall :32:
Hallo,
Sheets("Vorlage").Range("A1:D200").Copy Sheets(4).Range("R1")
Gruß Uwe
(19.09.2016, 13:51)Kuwer schrieb: [ -> ]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
(19.09.2016, 15:03)chrjh schrieb: [ -> ]Gibt es vielleicht auch noch die Möglichkeit die Formatierung mit zu kopieren?
Gruß Chrjh
Hallo,
was wird denn nicht mit kopiert?
Gruß Uwe
(19.09.2016, 15:06)Kuwer schrieb: [ -> ]Hallo,
was wird denn nicht mit kopiert?
Gruß Uwe
Hallo,
Eigentlich geht's mir erstmal nur um die Spaltenbreite.
Gruß
(19.09.2016, 15:07)chrjh schrieb: [ -> ]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 WithGruß Uwe
Werde das mal ausprobieren! Nochmals vielen Dank für deine schnelle Hilfe!
Gruß Chris