[VBA] Tabellenblatt aus einer Datei in andere einfügen, nur WERTE

[holg620]

Hallo zusammen,
um die Werte eines Tabelleblatts aus einer anderen Datei in die jetzt geöffnete Datei zu übertragen, habe ich bisher folgenden Code, der jedoch nicht funktioniert. Es werden auch die Formeln übernommen. Außerdem möchte ich, dass das neu erstellte Sheet das heutige Datum annehmen soll.

Könnte mir jemand weiterhelfen, den Code zu korrigieren/ zu ergänzen? Vielen Dank!

Sub xCopy()
Dim QWB As Workbook, ZWB As Workbook
Workbooks.Open "X:\.....\Projektcontrolling - Gesamtliste.xlsx"
Set QWB = Workbooks("Projektcontrolling - Gesamtliste.xlsx")
Set ZWB = ThisWorkbook
Dim QWS As Worksheet, ZWS As Worksheet
Set QWS = QWB.Worksheets("Übersicht Projekte ab 2010")
Set ZWS = ZWB.Worksheets("Portal")

QWS.Copy after:=ZWS
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats

Application.CutCopyMode = False

Workbooks("Konzept Projektcontrolling - Gesamtliste.xlsx").Close
End Sub

[Kuwer]

Hallo,

Code:

Sub xCopy_Kuwer()
  Dim ZWS As Worksheet
  Set ZWS = ThisWorkbook.Worksheets("Portal")
  With Workbooks.Open("X:\.....\Projektcontrolling - Gesamtliste.xlsx")
    .Worksheets("Übersicht Projekte ab 2010").Copy after:=ZWS
    .Close False
  End With
  With ThisWorkbook.Worksheets(ZWS.Index + 1)
    .UsedRange.Value = .UsedRange.Value
    .Name = Format(Date, "yyyy_mm_dd")
  End With
End Sub

Gruß Uwe

[holg620]

Wunderbar, es läuft wie am Schnürchen! Danke! :23: