Inhalt aus mehreren Arbeitsmappen in einzelner Mappe konsolidieren

[snb]

Verzichte immer auf 'Activate' und 'Select' in VBA.
Verwende With...End With statt Set x=
Konsolidiere sheets(1) in Dateien "G:\OF\Jahr_2018.xlsx", "G:\OF\Jahr_2019.xlsx" und "G:\OF\Jahr_2020.xlsx"

Code:

Sub M_snb()
  c00="G:\OF\"
  sn=split("Jahr_2018 Jahr_2019 Jahr_2020")

  for j=0 to ubound(sn)
    with getobject(c00 & sn(j) & ".xlsx")
      sp=.sheets(1).usedrange
      .close 0
    end with
    thisworkbook.sheets(1).cells(rows.count,1).end(xlup).offset(1).resize(ubound(sp),ubound(sp,2))=sp
  next
End Sub