wie schaffe ich es alle Formatierungen eines Tabellenblatts in einer neu erstellen Datei zu übernehmen.
Mein bisheriger Code:
Sub Te()
Workbooks.Add
ThisWorkbook.Sheets("Laufliste").UsedRange.Copy
With ActiveWorkbook.Sheets(1).Cells(1, 1)
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteColumnWidths
End With
Application.Dialogs(xlDialogSaveAs).Show Dateiname
End Sub
Funktioniert soweit, nur soll noch alles was im Dialog (Seite einrichten) festgelegt wird und die Zeilenhöhe geändert werden.Danke!