Excel Sheet Value kopieren in vorhanden externe Date

[jerry0110]

Hallo zusammen,

ich möchte gerne von einer vorhandenen Datei, ein Sheet kopieren und in eine vorhandene Datei kopieren. Aber nur die Value weil sehr viele Formel in der Hauptdatei sind und diese dazu führen, dass die Datei wohin es kopiert wird, ständig abstürzt. Wenn ich nur die Werte kopiere ist alles gut. Aber ich bekomme das nicht hin und finde auch nichts, was ich nutzen kann.

Ich habe zum Kopieren folgendes Makro:

Sub xCopy()

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

Dim QWB As Workbook, ZWB As Workbook
Workbooks.Open "C:\Users\jerry\OneDrive\Desktop\Test\Test\NE4 Jerome Kram.xlsx" ' Quelle, aus der die Tabelle41 kopiert werden soll

'Application.Wait Now + TimeSerial(0, 0, 60)

Set QWB = Workbooks("NE4 Jerome Kram.xlsx")
Set ZWB = Workbooks("MFH Reporting.xlsm")                                  ' Ziel, Workbook mit diesem Makro
Dim QWS As Worksheet, ZWS As Worksheet
Set QWS = QWB.Worksheets("Übersicht")                                              ' Quelle
Set ZWS = ZWB.Worksheets("Rohdaten")                                          ' Ziel

    QWS.Range("A1:AT60000").Copy
    ZWS.Range("A1").PasteSpecial Paste:=xlPasteValues
   
'    QWS.Cells.Copy ZWS.Cells(1, 1)                                              ' Inhalt in Ziel-Tabelle einfügen
    Workbooks("NE4 Jerome Kram.xlsx").Close
   
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
 

End Sub

 

[Yaslaw]

Sieht doch gut aus, wo ist das Problem? Bzw. Willst du denn mit den Formeln kopieren?

 

[jerry0110]

Ich hab es jetzt 100 mal ausgeführt und immer hat er einen Fehler angezeigt. Jetzt klappt es. Danke.

 

[Yaslaw]

Ansonsten kopiere mal den Fehler.