Gruppe
UDF
Problem
Eine benutzerdefinierte Funktion soll aus dem vorhergehenden Blatt den Wert aus der rechts neben der Zelle mit dem höchsten Datum liegenden Zelle liefern.
StandardModule: Modul1
Function LastDateValue() As Variant
Dim wks As Worksheet
Set wks = Worksheets(Application.Caller.Parent.Index - 1)
With WorksheetFunction
LastDateValue = .Index(wks.Columns("A:B"), _
.Match(.Max(wks.Columns(1)), wks.Columns(1), 0), 2)
End With
End Function