Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Daten in Abhängigkeit zum aktuellen Datum löschen

Gruppe

Open

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