Zeilen löschen wenn Datum kleiner ist
09.01.2004 17:35:10
Tom
ich habe vor einigen Stunden schon mal was gefragt aber leider noch keine Antwort erhalten. Kenne ich sonst gar nicht von Euch ;-))
Ich habe eine sehr große Tabelle mit 6 Spalten in der fortlaufend Werte aus anderen Tabellen eingelesen werden. Mein Problem ist, das doppelte Werte in Spalte Avorkommen aber in Spalte D verschieden sind.
Ich habe mittlerweile im Archiv ein Makro gefunden welches mir nur bedingt hilft.
Option Explicit
Sub DblFind()
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Cells.Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(iRow, 1)) > 1 Then
Rows(iRow).Delete
End If
Next iRow
Dim TB As Worksheet
Dim i%, lZeile%
Set TB = Worksheets(1)
lZeile = TB.Cells(Rows.Count, 1).End(xlUp).Row
For i = lZeile To 1 Step -1
If IsEmpty(TB.Cells(i, 1)) Or _
TB.Cells(i, 1) = "" Then
Rows(i).Delete
End If
Next i
End Sub
Was muss ich ändern, damit immer nur die Zeile gelöscht wird, in der in der Spalte D das kleinere Datum steht?
Wer kann mir helfen. Meine weiteren Recherchen im Archiv haben mir leider nicht geholfen.
Ich hoffe jemand erhört mich.
Gruß Tom
Anzeige