Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aus dem vorhergehenden Blatt einen SVERWEIS-Wert liefern

Gruppe

Sverweis

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