05.12.2020, 11:20
Moin!
z.B. so:
Gruß Ralf
z.B. so:
Code:
Workbooks(wkbName).Sheets(wksName).Range("A1:H7").Copy Workbooks(wkbNeu).Sheets(1).Range("A1")
Workbooks(wkbName).Sheets(wksName).Range("A8:Z25000").Copy Workbooks(wkbNeu).Sheets(1).Range("A8")
Gruß Ralf