Sicherheitskopie_Problem

Hallo liebes Forum
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Sicherheitskopie() Dim wb As Workbook Dim strFilename As String Dim Speicherpfad1 As String Dim Pfad As String, DateiName As String Dim Quellpfad As Variant Dim x As String DateiName = ThisWorkbook.Name Pfad = ThisWorkbook.Path & "\" Quellpfad = Pfad & "Sicherheitskopie\" x = Month(Date) Select Case x Case Is

Hey
ich habe es einmal ausprobiert,
in der Msgbox steht ein "." drin - wie soll ich das verstehen?
der Pfad existiert ja - ich sehe ihn ja vormir -
wie gesagt ich lasse es zum aller 1. mal laufen (der Ordner ist leer) - es funktioniert - die Datei wir in dem Ordner abgelegt (ich sehe sie und kann sie öffnen)
jetzt lasse ich es noch einmal laufen, so das die Datei nur überschrieben werden soll -- da kommt die Fehlermeldung - wenn ich in diesem Moment in den Ordner reinschaue, wo die Kopie drin ist, dann ist der Ordner leer
ich kann mir dies einfach nicht erklären warum
gibt es eine andere Möglichkeit die Datei abzuspeichern (eine Sicherheitskopie), wenn ich hier nicht weiter komme
danke
Fabi

'Excel-Datei selbst löschen Kill Speicherpfad1 & strFilename Do While Dir(Speicherpfad1 & strFilename, vbNormal) "" 'warten bis Betriebssstem Datei gelöscht hat DoEvents Loop Call .SaveCopyAs(Speicherpfad1 & strFilename)

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread