Rij verwijderen op basis van datum
Plak onderstaande macro in een module, bestudeer de code en pas de code aan aan jouw situatie.
Succes
==================================
Sub RijVerwijderen()
'
' RijVerwijderen Macro
' Macro 3-7-2004 by Frits W. Egmond
'
' Vraag:
' Is het mogelijk om d.m.v. een macro rijen te verwijderen
' waarin een cel is opgenomen met een datum?
' De datum valt uiteraard vroeger dan de huidige datum.
'
'
' Neem aan dat de datum in kolom B staat, dus in
' B2, B3, B4 etc.
'
Dim lngRijnr As Long
Dim varCelWaarde As Variant
' Ga rijen langs met nummers 2000 tot 2
' (Aanpassen als het anders moet)
' Werken van achter naar voren, want met het verwijderen
' van een rij komt de rest omhoog en weet je niet meer
' op welke rij je gebleven bent.
For lngRijnr = 2000 To 2 Step -1
varCelWaarde = Range("B" & lngRijnr).Value
If IsDate(varCelWaarde) Then
If varCelWaarde < Date Then
Rows(lngRijnr).Delete
End If
End If
Next lngRijnr
End Sub
==================================
