Kategorie:
(Tipp 431)
Wie kann ich den letzten Wert in einem Bereich ermitteln?
Folgenden Code in ein Standardmodul kopieren:
Function LetzterWert(Bereich As Range) As Variant Dim Zelle As Range Application.Volatile For Each Zelle In Bereich If Zelle <> "" Then LetzterWert = Zelle Next End Function
Um den letzten Wert im Bereich A1:J2 zu suchen kommt dann in die Zelle:
=Letzterwert(A1:J2)