CDate - 31
René
habe ein Makro, welches Daten löscht die älter als 31 Tage sind. Leider funktioniert das in diesem Jahr nicht mehr (Schaltjahr)
Könnt ihr mir einen Tipp geben was ich ändern muss.
Habe schon versucht anstatt bei Month -1 , bei Day -31 einzugeben. Das funzt aber auch nicht.
Bin für jede Hilfe dankbar.
Sub Schaltfläche7_Klicken()
Dim dat As Date
Dim X As Integer
If Worksheets("Tabelle1").AutoFilterMode Then Sheets("Tabelle1").Rows("1:1").AutoFilter
dat = CDate(CStr(Day(Date) & "." & Month(Date) - 1) & "." & Year(Date))
X = 2
Do Until CDate(Sheets("Tabelle1").Cells(X, 1).Value) >= dat
Sheets("Tabelle1").Rows(X).Delete Shift:=xlShiftUp
Loop
Application.ScreenUpdating = True
ActiveWindow.DisplayHeadings = False
Sheets("Tabelle1").Activate
Application.DisplayAlerts = False
Application.DisplayAlerts = True
End Sub
Anzeige