Sub Datum_kleiner_heute_löschen()
Dim iCounter As Integer, iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row
For iCounter = iRow To 2 Step -1
If Cells(iCounter, 1) And CDbl(Cells(iCounter, 1).Value) < CDbl(Date) Then
Rows(iCounter).Delete
End If
Next iCounter
End Sub
Nur wie setze ich das in Spreadsheets um ?
Sub Datum_kleiner_heute_löschen()
Dim iCounter As Integer, iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row
For iCounter = iRow To 2 Step -1
If Cells(iCounter, 1) And CDbl(Cells(iCounter, 1).Value) < CDbl(Date) Then
Rows(iCounter).Delete
End If
Next iCounter
End Sub
Nur wie setze ich das in Spreadsheets um ?