Gruppe
Ereignis
Problem
Wie kann ich beim Öffnen der Arbeitsmappe in einer Tabelle alle Daten löschen, die vor dem aktuellen Datum liegen?
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