Opgelost Oude datums uit een kolom verwijderen bij het openen van een werkblad

[Catrysse59]

Hallo iedereen , Ik ben op zoek naar een vba formule die bij het openen van een werkblad oude data dus ouder dan de huidige automatisch verwijderen in een bepaalde kolom . In bijlage vindt u een voorbeeld waarbij in kolom K dit momenteel via een macro lukt . De vba formule
werd in een module geplaatst
Sub VerwijderOudeDatumsAutomatisch()
Dim cel As Range
Dim bereik As Range
Set bereik = Range("k1:k25") ' Pas het bereik aan naar je eigen situatie

For Each cel In bereik
If IsDate(cel.Value) Then
If cel.Value < Date Then
cel.ClearContents ' Verwijdert de inhoud van de cel
End If
End If
Next cel
End Sub




en zou in principe aangepast moeten worden ..... maar bij mij lukt dit niet . Zou er iemand dit bestand kunnen aanpassen dat dit automatisch gebeurt zonder dat ik iedere keer de macro op het werkblad moet activeren ? Dankjewel

 

[AHulpje]

Plaats dit in je ThisWorkbook module:

Private Sub Workbook_Open()
    VerwijderOudeDatumsAutomatisch
End Sub
[/ODE]

 

[Catrysse59]

Bedankt Ahulpje . Het is nu gelukt .

 

[Warme bakkertje]

Enkele tips bijgevoegd.

Sub VerwijderOudeDatumsAutomatisch()
    'gebruik geen overbodige variabelen
    Dim cl As Range
    'Verwijs steeds expliciet naar het werkblad waar de code moet werken
    With Sheets("Blad3")
        'bereik past zich automatisch aan aan de lengte v/d kolom
        For Each cl In .Range("K1", .Range("K" & .Rows.Count).End(xlUp))
            If (IsDate(cl.Value)) And (cl.Value < Date) Then
                cl.ClearContents  ' Verwijder de inhoud van de cel
            End If
        Next cl
    End With
End Sub

 

[HSV]

Of?

Sub VerwijderOudeDatumsAutomatisch()
With Range("k8:k25")
  .AutoFilter 1, "<" & CLng(Date)
  .ClearContents
End With
End Sub

 

[Catrysse59]

Bedankt iedereen voor het aanbieden van een oplossing .