Letzter wert
28.04.2004 20:48:42
Hubert
habe bis jetzt immer ein Marko verwendet um den Letzten wert in einem Bereich herauszufinden. Jetzt kann es aber sein, dass schon die ersten 2 Zellen davon leer sind oder eben nicht und dann müsste ich trotzdem den Letzten Wert des Bereichs welcher bei mir aber immer nur eine Zeile ist herausfinden.
Bitte helft mir weiter. Bin noch anfänger
Function letzterWert(Bereich As Range) As Variant
Dim Zelle As Object
For Each Zelle In Bereich
If Zelle <> "" Then letzterwert = Zelle
Next
End Function
Anzeige