Kopieren von Worksheet aus externer Datei
10.10.2018 10:25:18
Worksheet
Ich möchte den Inhalt eines Tabellenblatts aus einer anderen Excel in das Tabellenblatt mit mit dem aktuellen Datum kopieren. Habe es mit dem Makrorecorder schon versucht, der hilft mir allerdings nicht beim aktuellen Datum weiter, da dieses ja variable ist. Versucht habe ich es dann wie folgt:
Sub alles()
Dim AktuellesDatum As Date
AktuellesDatum = Date
Dim QWB As Workbook, ZWB As Workbook
Workbooks.Open "C://xyz.xlsx"
Set QWB = Workbooks("xyz.xlsx")
Set ZWB = ThisWorkbook
Dim QWS As Worksheet, ZWS As Worksheet
Set QWS = QWB.Worksheets("VZahlen")
Set ZWS = ZWB.Worksheets(AktuellesDatum)
QWS.Cells.Copy ZWS.Cells(1, 1)
Workbooks("xyz.xlsx").Close
End Sub
Das hat aber nicht geklappt. Könnt ihr mir helfen? Vielen Dank im Voraus :)
Anzeige