Ich brauche Hilfe beim Kopieren eines Tabellenblattes in eine neue Excel-Datei.
Um das Tabellenblatt zu kopieren, benutze ich einen Button der mit folgendem Code hinterlegt ist:
Private Sub CopyInNewWorkbook_Click()
'Kopieren des aktuellen Tabellenblattes in eine neue Arbeitsmappe
Range("A1:I50").Copy
Set NewBook = Workbooks.Add
NewBook.Worksheets("Tabelle1").Range("A1").PasteSpecial (xlPasteValues)
NewBook.Worksheets("Tabelle1").Range("A1").PasteSpecial (xlPasteFormats)
NewBook.Worksheets("Tabelle1").Range("A1").PasteSpecial (xlPasteColumnWidths)
NewBook.Worksheets("Tabelle1").PageSetup.LeftMargin = Application.CentimetersToPoints(0.5)
NewBook.Worksheets("Tabelle1").PageSetup.RightMargin = Application.CentimetersToPoints(0.5)
End Sub
Mit diesem Code bekomme ich nur den Bereich der originalen Tabelle, der auch benötigt wird.
Es befindet sich in der originalen Tabelle noch eine Grafik, die ebenfalls mit kopiert werden soll.
Jetzt fehlt mir gerade jegliche Idee, wie ich in dem vorhandenen Code noch die Grafik anspreche und mit in die neue Excel-Datei kopiere.
Ich habe gegoogelt, den Macrorekorder ausgelaugt und auch beides kombiniert.
Jetzt bin ich Codeblind und komme nicht mehr weiter.