---

Hallo Community,

ich möchte gern aus "datei1.xls" eine "Sheet1" in "datei2.xls" kopieren. Ich mache das gerade über "Cells.Value" in einer doppelten for-Schleife. Funktioniert an sich ganz gut, wenn es nicht so langsam wäre. Es gibt aber sicher eine Möglichkeit, wie ich das Kopieren auch direkt machen kann oder?

Ich habe es mit AktiveSheet.Copy versucht. Da bekomme ich aber eine neue Datei mit dem Sheet drin.
Mit AktiveSheet.Copy Before:=AktiveSheet wird es nur in die selbe Datei kopiert. Ich habe auch versucht über Set Destination = Workbooks(DestWorkbook).Worksheets(DestWorksheet) da etwas direkt anzugeben.

Hat jemand einen Code-Schnipsel, der das macht, was ich will?

[Diese Nachricht wurde von RobertM74 am 12. Aug. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielleicht hilft Dir dieser Ansatz beide Dateien geöffnet, die Ursprungsdatei ist aktiv in der Tabelle die kopiert werden soll.

    Cells.Select
    Selection.Copy
    Windows("Hierhin.xls").Activate
    Cells.Select
    ActiveSheet.Paste
    Rows("1:1").Select
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = xlVertical
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Rows("1:1").Select

------------------
Der nächste Urlaub kommt bestimmt ;-)
Jestertur

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

schau z.B. mal >> hier << oder >> hier <<.
Weitere Einträge findest Du mit dem google Suchbegriff +vba +excel +sheet +kopieren
HTH

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Robert,

Code:

---

    Worksheets("Tabelle1").Copy After:=Workbooks("Mappe2.xls").Sheets(1)

---

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP