xlPaste Problem
17.03.2004 11:47:04
Peter
ich bin von der Annahme ausgegangen, dass xlPasteFormats die Formate und xlPasteFormulas die Formeln kopiert. Die Werte werden dabei nicht angetastet, da dafür xlPastValues existiert.
Dem ist nicht so, alle Werte in den Workbooks(2) sind danach verschwunden (oder so leer wie das Workbooks(1)).
Was habe ich übersehen?
besten Dank, Peter
Für Thorsten:
musste
Workbooks(2).Range("A1").Select
mit
Workbooks(2).Sheets.Select
Range("A1").Select
ersetzen.
Vom oben geschilderten Problem abgesehen läuft Dein um xlPasteFormulas erweiteter Vorschlag optimal.
Codeausschnitt:
For intI = 1 To .FoundFiles.Count
dName = .FoundFiles(intI)
Workbooks.Open FileName:=dName
Workbooks(1).Sheets("Zus").Range("A3:N40").Copy
Workbooks(2).Sheets("Zus").Range("A3:N40").PasteSpecial xlPasteFormats
Workbooks(2).Sheets("Zus").Range("A3:N40").PasteSpecial xlPasteFormulas
.... (alle weiteren Tabellen)
Application.CutCopyMode = False
Workbooks(2).Sheets.Select
Range("A1").Select
Workbooks(2).Save
Workbooks(2).Close
Next intI