|
Hallo liebe Leute ich möchte gerne wie in der Tabelle hier eingefügt ist das ich wenn ich auf den Start Button oben drücken eine Message Box aufgeht und mir der Artikel mit S-Nummer und Bondprogramm angezeigt wird die älter als Jahr ist! Danach möchte ich sagen Ok dann wird in der Zelle Erstellungsdatum das Datum raus glöscht oder mit einem Abbrech Button das ganze abgebrochen. Der soll die Liste so lange durch gehen bis er keine Datum mehr findet was älter ein Jahr ist und mir das auch anzeigt!
Ganz unten ist meine Formel funktionierte auch mal aber irgendwie funktioniert sie nicht mehr richtig! Könnt ihr mír helfen??
|
Artikel |
S-Nummer |
|
Ordner |
Erstellungsdatum / Änderungsdatum
letzte Änderung |
Name |
geprüft |
Bemerkung |
|
|
|
aa |
S8888 |
6222,00 |
Bondprogramme |
21.01.2017 |
ew |
OK |
|
|
|
|
aaa |
S8888 |
622447,00 |
Bondprogramme |
22.02.2015 |
ew |
OK |
|
|
|
|
bbb |
S87404 |
652141,00 |
Bondprogramme |
21.01.2017 |
ew |
Ok |
|
|
|
Private Sub Start_Click()
Dim sh As Worksheet
Dim lz As Long
Dim ct As Long
Set sh = Worksheets("Del. 1")
With sh
lz = .Cells(.Cells.Rows.Count, 5).End(xlUp).Row
ct = 5
Do
If DateAdd("yyyy", 1, .Cells(ct, 5)) < Date Then
.Cells(ct, 5).Activate
If MsgBox(" Letzte Aktualisierung für" & vbLf & _
" " & .Cells(ct, 1) & " " & vbLf & _
" älter als ein Jahr" & vbLf & vbLf & _
" Eintrag löchen ?", vbYesNoCancel) = 6 Then
.Cells(ct, 5).ClearContents
lz = .Cells(.Cells.Rows.Count, 5).End(xlUp).Row
End If
End If
ct = ct + 1
Loop While ct - 1 < lz
End With
End Sub
|