Zweitneustes Datum finden
22.03.2015 12:28:41
Rolf
Ich versuche mit folgendem Code das neuste und zwietneuste Datum in eine Zelle zu schreiben. Die Daten stehen alle in der Spalte A und kommen mehrmals vor. Nun soll es das neuste Datum in die Zelle D1 und das zweitneuste Datum in die Zelle E1 schreiben. Das neuste klappt prima, aber beim zweitneusten happert es etwas, denn da nimmt er auch immer das neuste statt zweitneuste Datum.
Dim x As Long
Dim y As Long
x = Application.WorksheetFunction.Large(Worksheets("Vergleich").Columns("A"), 1)
y = Application.WorksheetFunction.Large(Worksheets("Vergleich").Columns("A"), 2)
Sheets("Vergleich").Range("D1").Value = x
Sheets("Vergleich").Range("E1").Value = y
Sieht jemand den Fehler?
Grüsse
Rolf