automatisches Speichern - Fehlermeldung
04.03.2013 09:56:45
Tobiax
Ich habe eine Datei, die automatisch ein Backup anlegt, sobald gespeichert wird.
Wenn ich in der Datei nun etwas ändere und Excel über das X rechts oben schliesse, dann kommt ja immer die Meldung "Sollen Ihre Änderungen in [...] gespeichert werden?"
Wenn ich jetzt auf speichern klicke, dann kommt sofort eine Fehlermeldung aus Visual Basic:
Laufzeitfehler '5':
Ungültiger Prozeduraufruf oder ungültiges Argument
Tobiax...
Hier das passende Makro (mit Hilfe hier aus dem Forum), welches unter "DieseArbeitsmappe steht.:
Private Const strPfadArchiv As String = "C:\Archiv\"
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim sDName As String
Application.DisplayAlerts = False
sDName = Format(Now(), "YYYY-MM-DD hh_mm_ss ")
sDName = sDName & VBA.Left(ActiveWorkbook.Name, Application.WorksheetFunction.Find(".", _
ActiveWorkbook.Name) - 1)
sDName = sDName & " " & Environ("Username")
sDName = sDName & VBA.Mid(ActiveWorkbook.Name, Application.WorksheetFunction.Find(".", _
ActiveWorkbook.Name), 99)
Me.SaveCopyAs strPfadArchiv & sDName
Application.DisplayAlerts = True
Sheets("Übersicht").Select
Range("A1").Select
End Sub