habe folgendes Problem:
Private Sub Workbook_Open()
Application.DisplayAlerts = False
If ((A61 = "TT.MM.JJJ") >= "27.01.2004") Then
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End If
For Each wks In ThisWorkbook.Worksheets
wks.Unprotect "Passwort"
Next wks
Sheets("Jan").Select: Range("C18").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[1]:RC[10])"
Range("C19").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[1]:RC[10])"
Selection.AutoFill Destination:=Range("C19:C47"), Type:=xlFillDefault
Range("C19:C47").Select
Range("C48").Select
.
.
.
End Sub
In Zelle A61 wird automatisch das Datum eingetragen [=HEUTE()], nun möchte ich das sich die Datei an einem bestimmten Datum (27.01.2004) automatisch löscht.
Aber die Datei löscht sich immer, egal was für ein Datum eingetragen ist.
Wie man im nachfolgenden Bereich erkennt, sollen bis zu diesem Datum, verschiedene Formeln in verschiedene Zellen eingetragen werden.
Das klappt wie ich es haben möchte, nur das Löschen nervt mich seit einer Woche.
Ich meine das mir ein Gedankenfehler unterläuft, kann aber keine Lösung finden.
Habe vorher diesen Befehl versucht:
Application.DisplayAlerts = False
If Date = „27.01.2004“ Then
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End If
Die Datei öffnete sich und hat die Formeln eingetragen, sonst nichts.
Gruß und danke für die Hilfe.
ER