Cel naast gevonden cel leeghalen

[Linda927]

Goedemiddag,

Ik zou graag wat hulp willen bij de onderstaande situatie.

In een document variërend van 10 tot 10000 regels staat in sommige rijen in 1 bepaalde kolom een notatie van een datum. Bijv 20150915 (vandaag).

In een formule voeg ik hiernaast een kolom in en middels de formule (id macro) "=TEXT(RC[-1],""0000-00-00"")+1" en Selection.NumberFormat = "m/d/yyyy" voeg ik een datumnotatie toe. Ik weet niet of het de meest effectieve manier is, maar dit gedeelte van de macro werkt. Aan het einde van de macro verwijder ik diezelfde kolom weer, want de notatie 20150915 moet blijven staan.


Graag wil ik een macro maken welke de data vindt die < Date en de oorspronkelijke cel leegmaakt. Dus niet de ingevoegde cel met datumnotatie, maar met bijv 20100101.

Ik heb een voorbeeldbestandje zonder macro toegevoegd. Kan iemand mij helpen?

Groetjes Linda

 

[Linda927]

Het is al gelukt:

    Dim Firstrow As Long
    Dim Lastrow As Long
    Dim Lrow As Long
     
     With Application
        .ScreenUpdating = False
    End With

    With ActiveSheet
        .Select
        Firstrow = .UsedRange.Cells(1).Row
        Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
        For Lrow = Lastrow To Firstrow Step -1
            With .Cells(Lrow, "B")
                If Not IsError(.Value) Then
                    If .Value < Date Then .Offset(0, -1).ClearContents
                End If
            End With
        Next Lrow
    End With
End Sub