Herbers Excel-Forum - das Archiv
letzter Wert einer Reihe
Betrifft: letzter Wert einer Reihe
von: tom
Geschrieben am: 20.11.2003 16:35:58
Hallo zusammen,
Ich brauch mal eure hilfe. Wie kann ich den letzten Wert einer Reihe herausbekommen? Die Werte beginnen in M10 und enden zum Beispiel bei z10.
Wie kann ich eine Abfrage starten, daß er die Zelle z10 findet.
kann mir jemand helfen?
Danke Euch
Betrifft: AW: letzter Wert einer Reihe
von: ChrisL
Geschrieben am: 20.11.2003 16:38:47
Hi tom
Schau mal hier...
http://www.excelformeln.de/formeln.html
Tabellennavigation (9)
Hinweis betr. Array-Formeln beachten.
Gruss
Chris
Betrifft: gibt es auch nen VBA code???????
von: tom
Geschrieben am: 20.11.2003 16:47:00
ich bräuchte es als VBA code.
soll in ein makro eingebunden werden.
gruß tom
Betrifft: AW: gibt es auch nen VBA code???????
von: ChrisL
Geschrieben am: 20.11.2003 16:48:25
Hi Tom
Hätte ich dies nur schon vorher gewusst...
Spalte...
Range("IV1").End(xlToLeft).Address
Zeile...
Range("A65536").End(xlUp).Address
Gruss
Chris
Betrifft: AW: gibt es auch nen VBA code???????
von: GerdW
Geschrieben am: 20.11.2003 16:58:09
Immer schön nach dem Prinzip Optimismus? Was, wenn IV1 und/oder
A65536 nicht leer sind?
Gerd
Betrifft: AW: gibt es auch nen VBA code???????
von: ChrisL
Geschrieben am: 20.11.2003 17:12:38
Hi Gerd
Dann geht es wohl in die Hose... Lebe halt nach der 80/20 Regel :-)
Gruss
Chris
Betrifft: AW: letzter Wert einer Reihe
von: Nayus
Geschrieben am: 20.11.2003 16:53:17
Hi,
meinst Du sowas?
Function getLastVal(pRange As Range) As Variant
Application.Volatile
Dim r As Range
Dim lval
For Each r In pRange
lval = r.Value
Next r
getLastVal = lval
End Function
Anwendung: = getLastVal(M10:Z10) gibt den Inhalt von Z10 zurück
Gruß,
Nayus
Betrifft: AW: letzter Wert einer Reihe
von: ChrisL
Geschrieben am: 20.11.2003 17:08:39
Hi Nayus
Nur so als Hinweis, geht auch ohne Schlaufe...
Function getLastVal(pRange As Range) As Variant
Application.Volatile
getLastVal = Cells(pRange.Row + pRange.Rows.Count - 1, pRange.Column + pRange.Columns.Count - 1)
End Function
Gruss
Chris