wie letzten wert einer zeile ermitteln

[67mika]

wie kann ich diese Formel die in Excel einwandrei funktioniert

Function letzterWert(Bereich As Range) As Variant
Dim Zelle As Object
For Each Zelle In Bereich
If Zelle <> "" Then letzterWert = Zelle
Next
End Function

dann ein aufruf in einer Zelle =letzterWert(Bereich)

an Openoffice anpassen da es die Funktion for each nicht gibt
Ziel ist es den letzen wert einer Zeile zu erhalten in der aber auch Leerzellen vorhanden sind

[Karolus]

Hallo
Mit zb. der Calc-formel:

Code: Alles auswählen

=INDIREKT(ADRESSE(1;MAX(SPALTE(A1:K1)*(A1:K1<>""))))

als Matrix-funktion abgeschlossen erhälst du die letzte gefüllte Zelle in A1:K1

Gruß Karo

[67mika]

erstmal Danke komme aber trotzdem nicht weiter
habe zum Test von A1 bis D4 jeweils Zahlen (A1=1,B1=leer,C1=3,D1=4) und deine formel etwas abgeändert =INDIREKT(ADRESSE(1;MAX(ZEILE(A1:D1)*(A1:D1<>""))))
es kommt aber immer der wert 1 heraus, es soll aber der letzte Wert (4) angezeigt werden

mfg micha

[Karolus]

Hallo
Der Formelteil: MAX(ZEILE(A1:D1)*(A1:D1<>"")
kann eben nichts anderes als 1 zurückgeben -> Daher gibt die ganze Formel immer den Inhalt von A1 zurück

Ändere ZEILE um in SPALTE und vergiss nicht als Matrix abzuschliessen.

Gruß Karo