|
Hmm... ganz kompliziert...
'Folgendes im Codepane "DieseArbeitsmappe"
Private Sub Workbook_Open()
Dim Referenzdatum As Date
Referenzdatum = CDate(ThisWorkbook.Worksheets("Taeglich").Range("J1").Value)
If DateDiff("d", Referenzdatum, Date, vbUseSystemDayOfWeek) >= 1 Then DatenImBlatt_löschen "Taeglich", "D7:D32,E7:E32"
If DateDiff("ww", Referenzdatum, Date, vbUseSystemDayOfWeek) >= 1 Then DatenImBlatt_löschen "Woechentlich", "D7:D32,E7:E32"
If DateDiff("m", Referenzdatum, Date, vbUseSystemDayOfWeek) >= 1 Then DatenImBlatt_löschen "Monatlich", "D7:D80,E7:E80"
If DateDiff("m", Referenzdatum, Date, vbUseSystemDayOfWeek) >= 3 Then DatenImBlatt_löschen "Vierteljahr", "D6:D38,E6:E38"
End With
End Sub
Private Sub DatenImBlatt_löschen(Blattname As String, BereichZuLöschen As String)
With ThisWorkbook.Worksheets(Blattname)
.Range(BereichZuLöschen).ClearContents
.CheckBoxes.Value = False
.Cells.FormatConditions.Delete
End With
End Sub
VG
Yal
|