Tabellenblatt in neue Datei kopieren
02.03.2021 17:04:13
Sebastian
Ich möchte gern ein Tabellenblatt, in dem eine Tabelle definiert, Formeln und bedingte Formatierung enthalten sind, in eine neue Datei kopieren - es soll alles gleich sein, jedoch OHNE Formeln und bedingte Formatierung. Die resultierenden Zellfarben aus der BedForm sollen jedoch auch mit übernommen werden.
In Grundzügen funktioniert untenstehender Code schon ganz gut. Ich habe es auch schon geschafft, die Formeln zu entfernen, dabei ist mir jedoch auch die Tabelle komplett zerfallen. Zellfarben habe ich noch gar nicht kopieren können.
Option Explicit
Sub Kopie()
Dim wb As Workbook
Dim relativePath As String
relativePath = ThisWorkbook.Path & "\" & "Kopie.xlsx"
Set wb = Workbooks.Add
ThisWorkbook.Sheets("xxx").Copy Before:=wb.Sheets(1)
wb.SaveAs Filename:=relativePath
End Sub
Grüße,
Sebastian