Ich möchte eine Funktion verwenden, die das neueste Datum aus einer Reihe von Daten zurückgibt.So geben Sie einen Datumswert mithilfe einer öffentlichen Funktion zurück
Wenn ich jedoch diese Funktion in einem Sub verwenden, bekomme ich: 00:00:00. Was mache ich falsch?
Sub ShowDate()
MsgBox (RecentDate())
End Sub
Sie rufen Function RecentDate, aber Sie setzen nie den Wert von RecentDate auf den Wert von MaxDate.
Wie auch immer, Sie brauchen nicht wirklich eine zusätzliche Variable MaxDate, und es gibt keine Activate die "Data" Arbeitsblatt.
ändern Function Code:
Public Function RecentDate() As Date
RecentDate = Application.WorksheetFunction.Max(Sheets("Data").Columns("A"))
End Function