Probleme mit "Kill" auf einem Rechner
26.10.2006 10:56:30
Peter
mit folgendem Code lasse ich beim Schließen ein "Backup mit Tagesdatum" der 5 angegebenen Tabellen in eine Mappe im Ordner Backup schreiben. Wenn diese Datei bereits existiert, wird sie zunächst per Kill-Befehl gelöscht und dann wieder geschrieben. Dies funktioniert bei mir auch ohne jegeliche Beanstandung. Auf dem Rechner eines Kollegen jedoch bringt dies immer den Hinweis: Die Zelle oder der Ort....ist schreibgeshützt...usw
Wenn ich auf dem Kollegen-Rechner vorher die Datei manuell aus dem Ordner Backup lösche, wird der Befehl anstandslos ausgeführt...also vermute ich dass es um den "Kill"-Befehl geht....werkann da helfen?
Public
Sub Backup()
If TableExists(ThisWorkbook, "Start") Then
Sheets("finanzdaten").Visible = True
Sheets("kunden").Visible = True
Sheets("Start").Visible = True
Sheets("angebot").Visible = True
Sheets("eigenleist").Visible = True
Dim myWorksheet As Worksheet
Sheets(Array("kunden", "finanzdaten", "angebot", "eigenleist", "Start")).Copy
Call setzen
If Dir("C:\ApolloFinStar\Backup\DatenBackup" & Date) <> "" Then
Kill ("C:\ApolloFinStar\Backup\DatenBackup" & Date)
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs "C:\ApolloFinStar\Backup\DatenBackup" & Date
Else: Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\ApolloFinStar\Backup\DatenBackup" & Date
End If
End If
If TableExists(ThisWorkbook, "Start") Then
ActiveWorkbook.Sheets("finanzdaten").Visible = xlVeryHidden
ActiveWorkbook.Sheets("kunden").Visible = xlVeryHidden
ActiveWorkbook.Sheets("angebot").Visible = xlVeryHidden
ActiveWorkbook.Sheets("eigenleist").Visible = xlVeryHidden
End If
ActiveWorkbook.Close
End Sub
Vielen Dank für Euere Mühe
Peter S
Anzeige