ich möchte gerne aus meiner Datei von den ersten beiden Tabellenblättern eine Kopie ablegen! Hier aber nur die Werte übernehmen! Das ablegen der beiden Sheets klappt! Beim ersten werden auch nur die Werte übernommen nur beim zweiten tauchen noch die Formeln auf!
Was mache ich falsch?
Sub Blatt_ablegen()
Application.DisplayAlerts = False
ActiveSheet.Shapes("Button 1").Visible = False
Sheets(Array("Tab1", "Tab2")).Copy
Cells.Copy
Cells(1, 1).PasteSpecial xlPasteValues
Range("A1").Select
ActiveWorkbook.SaveAs "T:Auswertungen\Mon_" _
& Format(Sheets("Tab1").Range("D2"), "YYYY")
ActiveWorkbook.Close
ActiveSheet.Shapes("Button 1").Visible = True
Application.DisplayAlerts = True
End Sub
Gruß