Übertragen v. Daten zw. Workbooks
28.07.2008 09:17:42
Werner
Hallo liebe Forumsmitglieder,
kürzlich musste ich Daten häppchenweise von einer Excel-Datei (Workbook) in eine andere kopieren.
Leider ist eine Anweisung der Art
Workbooks(1).Worksheets(1).Range("A1").Copy Destination:= Workbooks(2).Worksheets(1).Range _
("A1")
in Excel nicht moeglich. Deshalb schrieb ich stattdessen:
Workbooks(1).Activate
Worksheets(1).Activate
Workbooks(1).Worksheets(1).Range("A1").Copy Destination:= Workbooks(2).Worksheets(1).Range _
("A1")
oder ähnlich.
Beim Übertragen des nächsten Häppchens muss ich dann jedesmal wieder in die Ausgangsdatei
zurückschalten, und dann wieder die Zieldatei aktivieren, usw. (natürlich mit "Application.Screenupdating
= False" und dann am Ende wieder "Application.Screenupdating = True")
Das Problem ist also nicht unlösbar, doch gibt es vielleicht eine einfachere Lösung? Werner R.