Suchen Sie das letzte Datum in einer Spalte

Ich brauche Hilfe mit dem folgenden Code. Ich versuche, die Zelle mit dem neuesten Datum in Spalte "A" zu aktivieren. Wenn ich versuche, die Zelle zu aktivieren, wird die Zelle "OIY3" weiterhin aktiviert, und in diesen Spalten befinden sich keine Werte.

sub test

Max_date = Application.WorksheetFunction.Max(Columns("A"))

MsgBox CDate(Max_date)

Cells(Max_date).Activate

End sub 

Hier ist eine typische Methode:

Sub test()
    Dim r As Range
    Max_date = Application.WorksheetFunction.Max(Columns("A"))
    MsgBox CDate(Max_date)
    Set r = Range("A:A").Find(What:=CDate(Max_date), After:=Range("A1"))
    r.Activate
End Sub

Sie haben Max_dateden Wert und nicht die Zellenadresse eingestellt. Daher versucht Excel, ein Datum als Zelladresse zu interpretieren.

Über diesen SO-Link sollten Sie die gewünschte Antwort erhalten.