Ich habe eine Frage zu einem Code, der seid 2 Tagen komischerweise einen Laufzeitfehler ausspuckt.
Option Explicit
#If Win64 Then
Private Declare PtrSafe
Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As _
String) As Long
#Else
Private Declare
Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) _
As Long
#End If
Public RunWhen As Double
Private Const cRunIntervalSeconds = 600 ' Intervall in Sekunden
Private Const cRunWhat = "Backup"
Sub Backup()
Dim strBackupPath As String, strFilename As String
strBackupPath = "\\ZENTYAL\09_User\Masterlisten-Share\Backup" 'Verzeichnis für das Backup
If Right(strBackupPath, 1) "\" Then strBackupPath = strBackupPath & "\"
If MakeSureDirectoryPathExists(strBackupPath) 0 Then
With ThisWorkbook
strFilename = .Name
strFilename = Left(strFilename, InStrRev(strFilename, ".") - 1) & _
Format(Now, "_yyyyMMdd_hhmmss") & Mid(strFilename, InStrRev(strFilename, "."))
.SaveCopyAs strBackupPath & strFilename
End With
End If
StartTimer
End Sub
Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
schedule:=True
End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime earliesttime:=RunWhen, _
procedure:=cRunWhat, schedule:=False
End Sub
Ich bekomme seit 2 Tagen den:
"Laufzeitfehler 1004
Die Methode "OnTime" für das Objekt "_Application" ist fehlgeschlagen.
Ich weiß wirklich nicht, woran es liegen könnte. Ich habe nichts am Code verändert. Vor 2 Tagen hat er noch funktioniert. Backup Dateien werden auch nicht mehr erstellt.