VBA: Laufzeitfehler 1004
15.10.2017 10:47:40
Fritz
vor einigen Tagen hat mir Case in diesem Forum nachfolgendes Makro geschrieben, mit dem ich das Tabellenblatt "Daten" in einer neuen Arbeitsmappe unter dem Dateinamen ergänzt durch das aktuelle Datum im gleichen Ordner sichere.
Nun ergibt sich ein Problem, wenn das Makro ausgeführt wird und für diesen Tag bereits eine Sicherung erstellt wurde. Dann erscheint der Hinweis, dass eine Datei mit diesem Namen an diesem Speicherort bereits vorhanden ist.
Wenn ich nun auf die Frage "Soll sie ersetzt werden?" mit Nein reagiere, erscheint die Fehlermeldung "Laufzeitfehler 1004".
Wie kann ich diese Fehlermeldung vermeiden?
Für eure Unterstützung besten Dank im Voraus.
mfg
Fritz
Hier das Makro:
Option Explicit
Public Sub Main()
Application.ScreenUpdating = False
Worksheets("Daten").Copy
With ActiveSheet.UsedRange
.Value = .Value
End With
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, _
(InStrRev(ThisWorkbook.Name, ".") - 1)) & Format(Now, "_DD_MM_YYYY") & ".xlsx", 51
.Close False
End With
Application.ScreenUpdating = True
End Sub