ich möchte gerne mein Sheet Bericht als Kopie nur mit Werten als xlsx ablegen!
Bisher funktionierte das einwandfrei mit:
Sub Blatt_ablegen()
Application.DisplayAlerts = False
Sheets("Bericht").Copy
Cells.Copy
Cells(1, 1).PasteSpecial xlPasteValues
Range("A1").Select
ActiveWorkbook.SaveAs "C:\Bericht_" _
& Format(Sheets("Bericht").Range("B5"), "MMYY")
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
Normalerweise klappt das nur mein BEricht ist ein bischen umfangreicher und das Makro hängt sich auf!Kann ich was besser machen? Ich möchte einfach von meinen Sheet Bericht eine xlsx.-Kopie nur mit Werten ohne Formel abspeichern!
Gruß