(Tipp 431)
![Nachricht zum Beitrag an Autor Nachricht zum Beitrag an Autor](sitegrafik/icon_direktnachricht.jpg)
![Nach oben Nach oben](sitegrafik/icon_oben.jpg)
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)