Gruppe
UDF
Bereich
Sverweis
Thema
Aus dem vorhergehenden Blatt einen SVERWEIS-Wert liefern
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.
Lösung
Über die nachfolgende benutzerdefinierte Funktion.
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