Hallo Leute,
Die Datei „DatenAlt.xls“ enthält für jeden Monat seit Jan. 2000 ein separates Tabellenblatt mit ca. jeweils 3000 Datensätzen. Inzwischen umfasst die Dateigröße mit 81 Tabellenblättern sowie Programmcode für Auswertungen auf einer UF ca. 41 MB. Auf der UF wird anhand von Optionsschaltflächen jeweils ein Jahrgang angewählt; eine ComboBox listet die diesem Jahrgang zugehörigen Tabellenblattnamen auf: (Jan., Feb.,...Nov., Dez.). Durch Markierung eines dieser Einträge wird das entsprechende Tabellenblatt kopiert und in das Tabellenblatt „Auswertung“ zur weiteren Bearbeitung kopiert. Soweit funktioniert alles wunderbar.
Zur Reduzierung der Dateigröße will ich nun alle zu einem Jahrgang gehörenden Tabellenblätter aus „DatenAlt.xls“ ausschneiden und in jeweils eine neue Datei mit dem Namen „2000.xls“ (2001.xls, 2002.xls usw. bis 2005.xls) einfügen. Die Jahrgangs- und Monatsauswahl soll weiterhin wie oben beschrieben erfolgen.
Es sind also 2 Dateien geöffnet: „DatenAlt.xls“ und z.B. „2002.xls“. Die Auswahl und das anschließende Markieren (zum Kopieren) des gewählten Tabellenblattes in „2002.xls“ funktioniert bereits. Mit dem anschließenden Einfügen in das Blatt „Auswertung“ in „DatenAlt.xls“ gibt es aber noch ein Problem.
Mit: Selection.Copy After:=Workbooks(„DatenAlt.xls“).Sheets("Auswertung")
ist es noch nicht möglich die Zieldatei anzusprechen.
Wie müsste der Code abgeändert werden?
mfg
reiner