probleme mit dem datum
03.11.2004 03:06:51
robag
ich suche den CODE für folgendes Problem:
in Zelle H4 steht ein Datum und wenn das Datum älter als 4 Wochen ist soll die ganze Zeile gelöscht werden.
Wenn ich aber folgenden CODE eingebe wird die ganze Zeile auf jeden Fall gelöscht - egal was für ei Datum ist.
Sub datum()
Dim j
'Wenn in Spalte H ein Wert kleiner Heute-28 Tage steht, wird diese Zeile gelöscht
For j = Cells(Rows.Count, 4).End(xlUp).Row To 1 Step -1
If Cells(j, 8) <> "" And Cells(j, 8) < "TODAY()-28" Then Rows(j).Delete Shift:=xlUp
Next j
End Sub
ein weiterer Nachteil: das makro läuft viel zu lange.
Danke für jede Antwort.
ROBAG