VBA Blätter kopieren & Werte einfügen
16.11.2020 13:00:04
excelliebe
ich möchte aus einer Mappe drei Tabellenblätter kopieren und die Werte (und Formate) in eine neue Mappe einfügen und diese automatisch speichern. Der Dateiname soll dabei "NeueDatei + gestriges Datum" sein.
Die Tabellenblätter enthalten Formeln, Gruppierungen und Teilergebnisse.
Nach Möglichkeit möchte ich zudem die Bedingte Formatierung (farbige Hinterlegung) ebenfalls übernhemen/festschreiben (ist eine wenn/dann-Formel als Regel hinterlegt).Diese geht leider verloren bei meiner Variante:
Sub CopyValueSave()
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy
With Sheets(Array("Sheet1", "Sheet2", "Sheet3")).UsedRange
.Cells.Value = .Cells.Value
End With
ActiveWorkbook.SaveAs "C:\NeueDatei 15.11.2020.xls"
End Sub
Kann mir hier jemand helfen? Vielen Dank schon jetzt!