VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Aus dem vorhergehenden Blatt einen SVERWEIS-Wert liefern

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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Sverweis