aus geöffneten Arbeitsmappen kopieren
09.07.2005 21:13:11
Peter
es sind 2 Arbeitsmappen geöffnet.
Jetzt möchte ich nur den Inhalt (ohne vorh. Formatierungen) von Datei Quelle Tabelle1
nach Datei Ziel Tabelle2 kopieren.
Wie macht man das richtig?
Peter
Sub Sh_Inhalt_kopieren()
EndZeile = Cells(Rows.Count, 2).End(xlUp).Row
Workbooks("Ziel.xls").Worksheets("Tabelle2").Range(Cells(1, 1), Cells(EndZeile, 15)).Value = _
Workbooks("Quelle.xls").Worksheets("Tabelle1.").Cells
End Sub