|
Public Sub Start()
Dim sh As Worksheet
Dim lz As Long
Dim ct As Long
Set sh = Worksheets("Del. 1")
With sh
ct = 2:'Wieso steht bei dir ct=5?
lz = .Cells(.Cells.Rows.Count, 5).End(xlUp).Row
Do
If DateAdd("yyyy", 1, .Cells(ct, 5)) < Date Then
temp = " Letzte Aktualisierung für" & vbLf & " " & .Cells(ct, 1) & " " & vbLf & " älter als ein Jahr" & vbLf & vbLf
If MsgBox(temp + " Eintrag löchen ?", vbYesNo) = 6 Then' Wozu "Cancel", wenn doch nicht verarbeitet?
.Cells(ct, 5).ClearContents
lz = .Cells(.Cells.Rows.Count, 5).End(xlUp).Row
End If
End If
ct = ct + 1
Loop While ct < lz + 1
End With
End Sub
|