Clever-Excel-Forum

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!

Zitat: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

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

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

holg620

Kuwer

holg620