Erste Zeile, letzte Zeile aus Bereich abfragen
Peter
mit dieser Funktion kann die letzte Zeile eines Bereichs abgefragt werden. Allerdings funktioniert das nicht, wenn der Bereich grösser als eine Zelle ist.
Fragen:
- wie muss die Erweiterung erfolgen, dass das dies auch bei einer Zeile funktioniert?
- wie kann muss die Funktion lauten, dass die erste Zeile ausgegeben wird?
Danke und Gruss, Peter
Public Function sLetzteZeile(Bereich As String)
sLetzteZeile = Split(Split(Range(Bereich).Address(1, 0), ":")(1), "$")(1)
End Function
Anzeige