Ich kopiere den Inhalt eines Sheets in eine neue Tabelle mit folgendem Code:
Dim Exportname As String
Exportname = Worksheets("Eingabe").Range("L4").Value & "_" & Format(Date, "DD-MM-YYYY") & ".xls"
Dim intoldSheetscount As Integer
intoldSheetscount = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Workbooks.Add
Application.SheetsInNewWorkbook = intoldSheetscount
With ThisWorkbook
ActiveSheet.Range(.Worksheets("Ausgabe").UsedRange.Address) = .Worksheets("Ausgabe").UsedRange.Value
End With
ActiveWorkbook.SaveAs Exportname
Dabei werden jedoch nur Werte kopiert.
Wie muß ich den Code ändern/erweitern, damit auch die Formate (aber nicht die Formeln!) übernommen werden?
Besten Dank!
Gruß Marc