Herbers Excel-Forum - das Archiv

letzter Wert einer Reihe

Bild

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

Bild

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
Bild

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
Bild

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
Bild

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
Bild

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
Bild

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
Bild

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
Bild
Excel-Beispiele zum Thema " letzter Wert einer Reihe"
Letzter Wert in Zeile Letzter Wert aus einem Bereich
Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen Zeile mit letzter Fundstelle an letzte Position der Liste