irgendwie bin ich gerade am verzweifeln:
datei1/blatt1 soll nach datei2/blatt1 kopiert werden (nur daten/formate/shapes)
mit den daten und formaten ist das ja kein problem:
Workbooks("datei1.xls").Worksheets("blatt1").Cells.Copy
With Workbooks("datei2.xls").Worksheets("blatt1").Cells
.PasteSpecial Paste:=xlValues
.PasteSpecial Paste:=xlFormats
End With
wie bekomme ich jetzt aber die shapes inkl. positionen noch kopiert?
Workbooks("datei1.xls").Worksheets("blatt1").Shapes.Range(Array("Picture 1", "Picture 2", "Text Box 1")).Copy
ActiveWorkbook.ActiveSheet.Paste
funktionierte zwar als aufzeichnung (mit select) aber hier ohne wirkung (kein ergebnis/keine fehlermeldung)
HOLZHAMMERMETHODE:
komplett kopieren und anschliessend mit werten überschreiben geht auch nicht - die formeln sind immer noch da (warum eigentlich!?)
Workbooks("datei1.xls").Worksheets("blatt1").Cells.Copy
Workbooks("datei2.xls").Worksheets("blatt1").Cells.Paste
Application.CutCopyMode = False
Workbooks("datei1.xls").Worksheets("blatt1").Cells.Copy
With Workbooks("datei2.xls").Worksheets("blatt1").Cells
.PasteSpecial Paste:=xlValues
.PasteSpecial Paste:=xlFormats
End With
würde mich über hilfe und lösungsvorschläge freuen ;-)
liebe grüße
steve.