datums wissen

[DirkB]

ik wil uit een kolom datums wissen die ouder zijn dan vandaag minus een week
had al iets geporbeerd maar dat lukt niet
kan iemand mij corrigeren>

Alvast thnx

  With Sheets(1).UsedRange.Columns(25)
      For Each cl In .SpecialCells(4)
      If cl.Value < Date -7 Then cl.ClearContents
              
      Next
     End With

 

[MarcelBeug]

SpecialCells(4) staat voor lege cellen...
Als je constanten zoekt, dan kun je 2 of beter xlCellTypeConstants gebruiken.

 

[gast0660]

Hoi,
Met deze?

Sub Dotchie()

Dim LR As Long, i As Long
LR = Range("Y" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    With Range("Y" & i)
        If Date - .Value > 7 Then .ClearContents
    End With
Next i
End Sub

 

[DirkB]

met specialcells (2) werkt het prima
thanks