Hallo Ihr Experten,
eigentlich dachte ich das es leicht ist. Aber! Ich möchte aus U\ Reporting\Rohdaten2020QIV\sic.xlsx die komplette Tabelle in meine Master Beteiligungsreporting kopieren. Öffnen tut die Datei, jedoch nicht in der Master, Tabelle: einlesen consult. Sieht hier jemand mein Fehler? Ich sitze seit Tagen und versuche aber es funktioniert einfach nicht. Ich bin totaler Anfänger. Mit dem Recorder hat es auch nicht funktioniert. Bitte um Hilfe. Danke hierfür.
Die Quelle liegt also auf U........ und heisst six.xlsx
kopiert soll sie werden in die Master, tbl. heisst einlesen consult.
Private Sub cmd_guvconsult_Click()
Dim QWB As Workbook, ZWB As Workbook
'Quelle wird geöffnet
Workbooks.Open ("U:\Reporting\Rohdaten 2020QIV\sic.xlsx") funktioniert
Set QWB = Workbooks("sic.xlsx")
Set ZWB = ThisWorkbook("Master Beteiligungsreporting")
Dim QWS As Worksheets, ZWS As Worksheets
Set QWS = QWB.Worksheets("Gewinn- und Verlustrechnung")
Set ZWS = ZWB.Worksheets("einlesen consult")
QWS.Copy After:=ZWS
Workbooks("sic.xlsx").Close
End Sub
|