Hjælp til makro

Sub SletDato()
dato = [B1]
kol = Selection.Column
rk = Cells(65500, kol).End(xlUp).Row
For t = rk To 1 Step -1
If Cells(t, kol) <= dato Then
Cells(t, kol).EntireRow.Delete
End If
Next

End Sub

obs hele rækken slettes !!

og datoer som er ældre eller lig med celle B1 i samme ark slettes

eller med denne kan du indtaste dato via inputbox

Sub SletDato()
dato = CDate(InputBox("Indtast dato i formatet dd-mm-ååå :"))
kol = Selection.Column
rk = Cells(65500, kol).End(xlUp).Row
For t = rk To 1 Step -1
If Cells(t, kol) <= dato Then
Cells(t, kol).EntireRow.Delete
End If
Next
End Sub

excelent den er bare perfekt

zxa

got :-)