Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
With Info
For lngZeile = lngZeileMax To 2 Step -1
.Cells(lngZeile, zielspalte).FormulaLocal = "=WENN(E" & lngZeile & "="""";"""";DATEDIF(E" & lngZeile & ";HEUTE();""D""))"
Next
For lngZeile = lngZeileMax To 2 Step -1
If .Range(lngZeile, zielspalte) >= 30 Then .Rows(lngZeile).Delete ' Löscht Daten älter 30 Tage
Next
End With
With Info
For lngZeile = lngZeileMax To 2 Step -1
.Cells(lngZeile, zielspalte).FormulaLocal = "=WENN(E" & lngZeile & "="""";"""";DATEDIF(E" & lngZeile & ";HEUTE();""D""))"
If .Cells(lngZeile, zielspalte) >= 30 Then .Rows(lngZeile).Delete ' Löscht Daten älter 30 Tage
Next
End With