Löscht Datei nicht
19.03.2007 10:57:00
Torge
hoffe nicht all zu kompliziert, hab aus dem Forum folgenden Code zum Löschen zusammen gebastelt
'Ablauf Nutzungsdauer wenn J40 den Wert 0 hat dann Datei Löschen zum Ablaufdatum
Ablaufdatum = "15.05.2007"
'Interessent
'Zelle J40 Name eingetragen und AJ1 Datum, dann löschen Datei bei öffnen + 2 Tage
If Sheets("Fin.-Anfrage").Range("J40") <> 0 And Sheets("Fin.-Anfrage").Range("AJ1") <> 0 Then
'Dim Ablaufdatum As String 'Variable deklarieren
Date = Cells(10, 1).Value 'DatumsString aus A10 ihn die Variable schreiben
'MsgBox Ablaufdatum 'Kontrollbox (kann später gelöscht werden)
If CDate(Date) <= Date - 2 Then 'Wenn das Ablaufdatum kleiner oder gleich (Datum-2 Tage) ist MsgBox "Die Nutzungsdauer ist endgültig überschritten" _
& vbCr & "die Datei wird gelöscht."
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End If
End If
end sub
Leider wird die Datei aber nicht gelöscht, spreche ich die Zelle falsch an auf die ich mich beziehe, da die Zelle ja in einem anderen Tabellenblatt liegt und ich den Code in "DieseArbeitsmappe" zu stehen habe, damit er beim öffnen der Datei ausgeführt wird? Das Datum wird beim speichern in der Tabelle "Sheets("Fin.-Anfrage").Range("AJ1")" eingetragen.
Kann hier jemand bitte mal drauf schauen!
Vielen Dank
Gr. T.