Wer kann helfen. Habe ein Script zum kompletten kopieren eines Datenblatt in eine neue Exceldatei. Mein Problem Zelleneigenschaften sind unterschiedlich zwischen den beiden Dateien, deshalb kommt eine Fehlermeldung. Wie muss ich das Script umbauen das auch formatierte, verbunden Zellen in ein neue Standart Arbeitsmappe kopiert werden.
Public Function ExcelKopie()
Dim AW As Workbook
Dim NW As Workbook
Dim WS As Worksheet
Dim NameNW As String
Set AW = ActiveWorkbook
Application.ScreenUpdating = False
AW.Sheets(Array("Blatt1")).Copy
Set NW = ActiveWorkbook
For Each WS In NW.Worksheets
WS.Activate
AW.Sheets(WS.name).Cells.Copy
WS.Cells(1).PasteSpecial xlPasteValues ' Hier tritt der Fehler auf
WS.Cells(1).Select
Next WS
Application.CutCopyMode = False
NameNW = "Datei2" 'hinterlegter Name ohne Pfad und Dateiendung
Application.ScreenUpdating = True
NW.SaveAs Filename:="C:\TEST\" & NameNW & ".xls"
NW.Close
End Function
Gruss volli
|