habe vor längerer Zeit schon mal einen Beitrag geschrieben in dem ich gerne eine xls-sheet ohne Makros und Formatierungen in eine separate Datei kopieren wollte.
Hat auch super funktioniert (siehe Code nachfolgend)
Kann man den noch erweitern, das man ein xls-Diagramm mitkopiert? Auf der Seite befindet sich ein kleines Balkendiagramm, welches ich noch in der anderen Datei benötigen würde.
Vielleicht kann man den Code noch diesbezüglich erweitern?!
DANKE in Voraus
LG
Ron
Private Sub Kopie_Click()
' Kopie einer Tabelle ohne Formeln mit Format, Register nicht geschützt
Workbooks.Add
Application.ScreenUpdating = False ' Bildschirmaktualisierung aus
With ThisWorkbook ' Datei mit Code
ActiveWorkbook.SaveAs .Path & "\Antrag_" & ThisWorkbook.Name ' neue Datei Workbooks. _
Add
Worksheets.Add
.Worksheets("Antrag").Cells.copy
With ActiveWorkbook.Cells
.PasteSpecial Paste:=xlPasteValues ' Werte
.PasteSpecial Paste:=xlFormats ' Formate
End With
ActiveWorkbook.ActiveSheet.Name = "Antrag"
Application.CutCopyMode = False ' Zwischenspeicher löschen
MsgBox "Reinen Antrag gespeichert als: " & .Path & "\Antrag" & ThisWorkbook. _
Name
'ActiveWorkbook.Close True ' Dateikopie schließen mit _
speichern
End With
Application.ScreenUpdating = True ' Bildschirmaktualisierung ein
End Sub