Geöffnet sind Workbook "ALT.xlsm" und "NEU.xlsm"
Alle Worksheets, die in Workbook "NEU" enthalten sind, sind auch in Workbook "ALT" enthalten (sowie viele weitere).
Nun möchte ich die einzelnen Tabellen inkl. Spalten- und Zeilenformate in die Workbsheets von Workbook "NEU.xlsm" übernehmen.
Was mache ich falsch?
Gruss, Peter
Sub Uebertragen1() 'code ist in Modul von Neu.xlsm
Dim objWB_new As Workbook
Dim objWB_old As Workbook
Dim objWS As Worksheet
ThisWorkbook.Activate
Set objWB_old = Workbooks("ALT.xlsm")
Set objWB_new = Workbooks("NEU.xlsm")
For Each objWS In objWB_new
'''kopieren und einfügen der jeweiligen Tabelleninhalte, inkl. Spalten/Zeileformate
objWB_old.Sheets(objWS.Name).Cells.Copy objWB_new.objWS
Next
End Sub