Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1472to1476
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Backup Code Fehler

Backup Code Fehler
03.02.2016 14:08:58
Imran
Hallo :)
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.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Backup Code Fehler
03.02.2016 17:10:28
Herbert
Hallo,
bei mir läuft der Code problemlos. Wenn die Fehlermeldung wirklich so lautet "Die Methode "OnTime" für das Objekt "_Application" ist fehlgeschlagen.", dann müsst der Fehler das "_" vor "Application" sein. Doch kann ich das in deinem Code nirgends entdecken.
Servus

AW: Backup Code Fehler
03.02.2016 17:14:00
Herbert
Prüfe mal deinen Pfad: ""\\ZENTYAL\09_User\Masterlisten-Share\Backup\""
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige