Habe in eine Mappe.xlsm Makro der mir alle halbe Stunde die Sicherung automatisch anlegt.
Ich bekomme sehr oft die Fehler Meldung daß zu wenig Ressourcen zur Verfügung stehen.
Derzeitige Mappen Größe ist ca 1400 KB.
Warum bekomme ich sehr oft die Fehler Meldung beim Sicherung anlegen?
Fehler Meldung in"SicherungAnlegen" in
(.PasteSpecial Paste:=xlPasteValues);
"Microsoft Excel kann diesen Vorgang
mit den verfügbaren Ressourcen nicht ausführen.
Bitte wählen Sie weniger Daten aus oder
schliesen Sie andere Programme."
Es scheint als ob man sehr weinig Speicher
Hier sind die Cods;
Option Explicit
Public meZeit As Date
Sub SicherungAnlegen()
' Kopie einer Datei ohne Formeln mit Format, Register nicht geschützt
Dim InI As Integer
Application.ScreenUpdating = False
Workbooks.Add
With ThisWorkbook
ActiveWorkbook.SaveAs .Path & "\Backup_" & Format(Now, "DD-MM-YY_hh-mm-ss") & ".xlsx"
For InI = .Worksheets.Count To 1 Step -1
Worksheets.Add
.Worksheets(InI).Cells.Copy
With ActiveWorkbook.ActiveSheet.Cells
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlFormats
End With
ActiveWorkbook.ActiveSheet.Name = .Worksheets(InI).Name
Next InI
Application.CutCopyMode = False
Application.DisplayAlerts = False
For InI = 1 To Application.SheetsInNewWorkbook
Worksheets(ActiveWorkbook.Worksheets.Count).Delete
Next InI
Application.DisplayAlerts = True
ActiveWorkbook.Close True
End With
Application.ScreenUpdating = True
End Sub
Sub Start_Sicherung()
If Not ThisWorkbook.Saved Then SicherungAnlegen
Call StartTimer
End Sub
Sub StartTimer()
Call StopTimer
meZeit = Now + TimeValue("00:35:00")
Application.OnTime meZeit, "Start_Sicherung"
End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime EarliestTime:=meZeit, _
Procedure:="Start_Sicherung", Schedule:=False
End Sub
Leider sind meine Kenntnisse gering so das ich allein nicht weiter komme.
Wäre super, wenn mir jemand helfen könnte, der sich damit auskennt.
Ich Danke Euch für Euer Mühen
Freue mich über jeden Hinweis!
Netten Gruß
Daniel