Office: Bereich in andere Arbeitsmappe kopieren

CreatorX · 3. Februar 2015

Hallo, wenn ich einen Bereich woanders hin kopieren möchte, würde ich das so machen:
Code:

With Sheets("Sheet1")
lngErsteZeile = 1
lngLetzteZeile = .Range("G" & lngErsteZeile).End(xlDown).Row
.Range(.Cells(lngErsteZeile, "N"), .Cells(lngLetzteZeile, "R")).Value = .Range(.Cells(lngErsteZeile, "G"), .Cells(lngLetzteZeile, "K")).Value
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber wie mache ich das, wenn ich diesen Bereich in eine andere Arbeitsmappe kopieren möchte?

:)

Hajo_Zi · 5. Februar 2015

Hallo Ronny,

schreibe noch die Tabelle vor Range.

CreatorX · 5. Februar 2015

Und wie?
Code:

"C:\Users\CreatorX\Documents\Plan.xlsx".Range(.Cells(lngErsteZeile, "N"), .Cells(lngLetzteZeile, "S")).Value = .Range(.Cells(lngErsteZeile, "G"), .Cells(lngLetzteZeile, "K")).Value
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Funktioniert nicht.

Hajo_Zi · 5. Februar 2015

die Datei muss auf sein.
Falls andere Datei schreibe das Workbook auch noch davor.

CreatorX · 5. Februar 2015

Ja ich meine damit eine Datei die nicht geöffnet ist. Geht das nicht?

Hajo_Zi · 5. Februar 2015

das geht nicht.

EarlFred · 5. Februar 2015

Hallo nameloser Fragesteller,

ein bisschen verwundert mich Deine Frage: Das Hintergrundwissen solltest Du aus den Antworten Deiner anderen Fragen bereits besitzen und anwenden können.

Code:

Option Explicit

Sub kopieren()
Dim lngErsteZeile As Long, lngLetzteZeile As Long
Dim wbZiel As Workbook
Dim wsZiel As Worksheet
'Existenz der Datei vorab prüfen, Fehlerbehandlung....!
Set wbZiel = Workbooks.Open("C:\Users\CreatorX\Documents\Plan.xlsx")
Set wsZiel = wbZiel.Worksheets("Blattname")

With ThisWorkbook.Worksheets("Sheet1")
lngErsteZeile = 1
lngLetzteZeile = .Range("G" & lngErsteZeile).End(xlDown).Row
Range(wsZiel.Cells(lngErsteZeile, "N"), wsZiel.Cells(lngLetzteZeile, "R")).Value = .Range(.Cells(lngErsteZeile, "G"), .Cells(lngLetzteZeile, "K")).Value
End With

wbZiel.Close SaveChanges:=True

Set wbZiel = Nothing
Set wsZiel = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der direkte Übertrag von Zellwerten mittels Wertzuweisung ist nur bei geringen Datenmengen (wenige hundert) performant, darüber würde ich PasteSpecial(xlPasteValues) nehmen.

Grüße
EarlFred

CreatorX · 5. Februar 2015

Das Hintergrundwissen solltest Du aus den Antworten Deiner anderen Fragen bereits besitzen und anwenden können.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Leider nicht, auf die Lösung wäre ich im Leben nicht von alleine gekommen.
Aber vielen herzlichen Dank, dein Code funktioniert perfekt.
Und ich heiße Ronny, wie in meiner Signatur.

EarlFred · 5. Februar 2015

Hallo Ronny,

ich lese die Beiträge schon, Signaturen aber eigentlich nicht. Ich finde es auch eine nette Geste, eine Grußformel von Hand einzutragen und nicht auf vorgedrucktem Briefpapier von der Maschine übermitteln zu lassen. Die Antworten auf Deine Fragen machen auch Arbeit - und zwar deutlich mehr als eine Grußformel.

In diesem Thema hat Dir ein anderer Member mit "X" am Ende (Steffen) alle Bausteine geliefert:
http://www.ms-office-forum.de/forum/...d.php?t=270658

Ich freue mich immer, wenn Hilfe nicht nur per Copy&Paste übernommen wird, sondern Wissen beim Fragenden erzeugt.

Grüße
EarlFred

Office: Bereich in andere Arbeitsmappe kopieren

Bereich in andere Arbeitsmappe kopieren

Bereich in andere Arbeitsmappe kopieren

Bereich in andere Arbeitsmappe kopieren

Bereich in andere Arbeitsmappe kopieren

Bereich in andere Arbeitsmappe kopieren - Similar Threads - Bereich Arbeitsmappe kopieren

Bereich von Excel nach Word mit zusammenhängenden Passagen übergeben

Nur markierte Zellen kopieren und wieder einfügen

Bereich zweimal in Word einfügen (VBA)

Bereich (z.B. C1:C12) aus Formel berechnen lassen

Word geschützter Bereich in Tabelle

Anzeigen mehrerer Bereiche, Blätter oder Arbeitsmappen

Benannten Bereich in allen Tabellen einer Arbeitsmappe finden und durchsuchen