Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

[VBA] Tabellenblatt aus einer Datei in andere einfügen, nur WERTE
#1
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
Antworten Top
#2
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
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • holg620
Antworten Top
#3
Wunderbar, es läuft wie am Schnürchen! Danke! :23:
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste