Blatt kopieren und abspeichern
12.11.2002 08:42:00
Michael
im ersten Blatt befindet sich ein Formular.
Im zweiten Blatt befinden sich ca 350 Datensätze mit 9 Elementen (Spalten).
Die Daten sollen nun alle in das Formular eingetragen werden. Danach soll das jeweilige Formular in eine neue Datei kopiert werden und abgespeichert werden, der Name steht in einer Spalte (z.B. I) des Datensatzes.
Das ganze soll in einer For Next Schleife integriert werden. Das Eintragen der Datensätze ist kein Problem, aber wie kopiere ich die Tabelle in die neue Datei und speichere das Ganze in dem Pfad "C:\Project\Daten" ab. Ich habe folgende Idee (leider fehlt mir noch der Schritt kopieren und der Pfad):
Workbooks.Add 'neue Datei öffnen
ActiveWorkbook.SaveAs FileName:=Worksheets("22").Cells(Zeile, 9).Value & ".xls"
ActiveWorkbook.Close
Bin dankbar für jeden Tipp. Vorab vielen Dank!
Michael
Anzeige