Sub loeschen()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 12).End(xlUp).Row To 1 Step -1
If Cells(i, 12) > DateValue("1.2.2007") Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub
Gruß
Sub loeschen()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 11).End(xlUp).Row To 2 Step -1
If Cells(i, 11) > DateValue("'& v_datum &'") Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub
Sub loeschen()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 11).End(xlUp).Row To 2 Step -1
If Cells(i, 11) > DateValue(v_datum) Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub