Thema: Daten in Abhängigkeit zum aktuellen Datum löschen

Download Beispiel-Arbeitsmappe

Home

Gruppe

Ereignis

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

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open

Msg mit 2 Ereignissen +Cancel	Workbooks open
Ereignisprozedur	Excel-Tabelle in OpenOrg
getopenfilename mit Teil der Dateiname	Makro für ereignisabh. Druck verschiedener Seiten
Benutzerdefinierte Funktion in Open Office	UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden?	GetOpenFilename Dateiname vorbelegen
xlDialogOpen anpassen	Symbolleisten durchloopen: löschen & restore
Zeilen aus- einblenden als Ereignis?	Welches Ereignis ist das richtige ??
Symbolleisten durchloopen und ausblenden	Ereignis Arbeitsblatt sperren abfangen
Workbook open	Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis	xlDialogOpen bei Excel 2007 funzt nicht
komisches phänomän bei set xx open workbook	Change-Ereignis in Combobox unterdrücken
Combobox Ereignis	MS OFFICE - OPEN OFFICE
Userform, Ereignis deklarieren im Klassenmodul	Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen	Command Button Ereignis
Workbook Open	Ereignis von Laufzeit-Checkbox
Wochenangabe bei WorkbookOpen	change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern	change-ereignis bei dynamisch erstellten Controls
Schaltfläche - Ereignis erst nach Bestätigung ausl	Makro Workbook_Open läuft nicht
Objekt_Error - Ereignis in UserForm	Problem mit OpenRecordset (Array)
bei OPEN macros vermeiden	Workbook_open
change ereigniss auf userform.	Click-Ereignis für Checlbox nicht ausführen?
windows.open und selection.change	workbooks.open Fehlermeldung
Speichern einer Kopie durch Ereigniss Workbook_bef	Reagieren auf Tastaturereignisse
Workbooks.OpenText - Datumsformat	Ausnahmen für Exit-Ereignis
Probleme mit Workboos.Open