Sicherheitskopie_Problem
24.02.2016 18:32:11
Fabi
ich habe folgenden Code um eine Sicherheitskopie anzulegen
Option Private Module
Sub Sicherheitskopie()
Dim strFilename As String
Dim Speicherpfad1 As String
Dim Pfad As String, DateiName As String
Dim Quellpfad As Variant
Dim x As String
DateiName = ActiveWorkbook.Name
Pfad = Mid(Workbooks(DateiName).Path, 1) & "\"
Quellpfad = Pfad & "Sicherheitskopie\"
x = Month(Date)
If x
mein Problem ist folgenden:wenn ich das Makro das erstemal laufen lassen, dann funtkionier das auch, dass die Datei abgespeichert wir, aber wenn das Makro dann ein 2. mal laufen lassen möchte, dann kommt eine Fehlermeldung, dass die Datei nicht mehr vorhanden ist.
Ich habe mitbekommen, dass die Datei, die immer wieder ÜBERSCHRIEBEN werden soll, dann plötzlich nicht mehr da ist (beim 2.Lauf)
bei dieser Zeile
Call .SaveCopyAs(Speicherpfad1 & strFilename)
ist die Sicherheitskopie im 2. Lauf plötzlich weg, und es kommt zu einer Fehlermeldung, erst beim nochmaligen durhclaufen lassen funktioniert es wieder
was mache ich falsch?
dannk für eure Hilf
Fabi