Hallo zusammen,
ich möchte mit folgendem Makro ein Excelsheet kopieren und es erneut abspeichern.
Excel speichert es zwar, aber es erscheint die Fehlermeldung, dass die Datei beim Öffnen beschädigt ist. Weiß jmd. eine Lösung?
Danke
Chris
ub SaveXLS()
Dim strgPfad As String
Dim AWS As String
Application.DisplayAlerts = False
AWS = "Plan-" & Format(Date, "yyy") & "-" & Format(Date, "mmmm") & "-" & "KW" & ActiveSheet.Range("K2").Value & "-" & ActiveSheet.Range("D2") & "-" & ActiveSheet.Range("F2") & ".xlsx"
ActiveWorkbook.Sheets("Plan").Copy
ActiveWorkbook.Sheets(1).Shapes.Range(Array("Button 1")).Delete
ActiveWorkbook.Sheets(1).Shapes.Range(Array("Button 2")).Delete
strgPfad = Environ("UserProfile") & "\Desktop\"
ActiveWorkbook.SaveAs Filename:= _
strgPfad & AWS, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
End Sub