Ältestes Dataum in Array

Question

Hallo,

ich habe in einem 3-dimensionalen Array in der dritten Dimension jeweils ein Datum stehen. Ich suche das Element mit dem ältesten Datum. Habe einiges versucht, aber bin noch nicht zum Erfolg gekommen. Hat jemand einen Tipp?

Gruß A.

Answer 1

hi Andreas

dein Beispiel,korrigiert

gruss nighty

Sub Andreas()
Dim Zaehler As Long, lngAnz As Long
ReDim arrSpeicher(lngAnz) As Variant
For Zaehler = 1 To 3
arrSpeicher(lngAnz) = CDbl(Cells(Zaehler, 1))
lngAnz = lngAnz + 1
ReDim Preserve arrSpeicher(lngAnz)
Next
Cells(1, 2) = Application.Match(Application.Min(arrSpeicher), arrSpeicher, 0)
End Sub