Daten von einer Datei in eine andere kopieren

[Leni99]

  Basis.xlsm (Größe: 13,91 KB / Downloads: 2)
  Analyse.xlsm (Größe: 13,87 KB / Downloads: 1) Habe nach der schnellen Hilfe meines Anliegens ".....Bereich markieren"

Sub allesmarkieren()
    Dim lngLetzte As Long
    lngLetzte = Sheets("Analyse").Cells(Rows.Count, 1).End(xlUp).Row
    Range("A2:AE" & lngLetzte).Copy
End Sub

noch eine Frage:

Würde es gehen, wenn man die Daten von A2 bis Ende markiert und von der
Datei "Analyse" in die Datei "Basis" A2 bis Ende kopiert?
Falls es geht, müssten da beide Dateien offen sein?

Danke für Eure Hilfe!

Leni

[snb]

Code:

Sub M_snb()
  with getobject("G:\OF\analyse.xlsm")
    sn=.sheets("analyse").cells91).currentregion.offset(1)
    .close 0
 end with

 with getobject("G:\OF\basis.xlsm")
    .sheets(1).cells(2,1).resize(ubound(sn),ubound(sn,2))=sn
    .close -1
  end with
End sub