Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Makro: Spalte mitsamt Formeln kopieren
#1
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!
Antworten Top
#2
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")
Antworten Top
#3
Hi,

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


Gruß
Ich

Oder andersherum wie in Deinem Fall :32:
[-] Folgende(r) 1 Nutzer sagt Danke an IchBinIch für diesen Beitrag:
  • chrjh
Antworten Top
#4
Hallo,

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

Gruß Uwe
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • chrjh
Antworten Top
#5
(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
Antworten Top
#6
(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
Antworten Top
#7
(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ß
Antworten Top
#8
(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 With
Gruß Uwe
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • chrjh
Antworten Top
#9
Werde das mal ausprobieren! Nochmals vielen Dank für deine schnelle Hilfe!
Gruß Chris
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste