Gruppe
Ereignis
Bereich
Open
Thema
Daten in Abhängigkeit zum aktuellen Datum löschen
Problem
Wie kann ich beim Öffnen der Arbeitsmappe in einer Tabelle alle Daten löschen, die vor dem aktuellen Datum liegen?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Dim iCol As Integer
For iCol = 2 To 17
With Worksheets("Tabelle1")
If .Cells(3, iCol).Value < Date - 5 Then
.Range(.Cells(4, iCol), .Cells( _
Rows.Count, iCol)).ClearContents
End If
End With
Next iCol
End Sub