Re: Kopie speichern unter ohne Makros
09.08.2002 13:52:32
Dieter
Hallo Marcus,ich habe das Problem mal so gelöst. Vielleicht hilft es Dir.
...
' neues Workbook anlegen und Seiten benennen
Workbooks.Add
ActiveWorkbook.SaveAs dateinamegesamt
ActiveWorkbook.Worksheets("Tabelle1").Name = "A"
ActiveWorkbook.Worksheets("Tabelle2").Name = "B"
ActiveWorkbook.Worksheets("Tabelle3").Name = "C"
' je Arbeitsblatt letzte Zelle erkennen und als Zellbereich kopieren
Workbooks("beispiel.xls").Worksheets("A").Activate
Range("A1").Select
Range(Cells(1, 1), Cells.SpecialCells(xlLastCell)).Copy
Workbooks(dateiname).Worksheets("A").Range("A1").PasteSpecial Paste:=xlValues
Workbooks("beispiel.xls").Worksheets("B").Activate
Range("A1").Select
Range(Cells(1, 1), Cells.SpecialCells(xlLastCell)).Copy
Workbooks(dateiname).Worksheets("B").Range("A1").PasteSpecial Paste:=xlValues
Workbooks("beispiel.xls").Worksheets("C").Activate
Range("A1").Select
Range(Cells(1, 1), Cells.SpecialCells(xlLastCell)).Copy
Workbooks(dateiname).Worksheets("C").Range("A1").PasteSpecial Paste:=xlValues
...
Gruß
Dieter