Seite 1 von 1

Re: Letztes Datum einer Zeile Ausgeben

Verfasst: Mo, 11.05.2009 07:53
von Karolus
Hallo Stefan
Leider kann der Formelteil ..ZELLE("FORMAT";... nicht als Matrix aufgerufen werden.

Kannst du evtl dafür sorgen das alle "Nicht-Datumswerte" der Zeile kleiner als die Datumswerte sind - (der serielle Wert von heute dem 11.5.09 beträgt 39911) - oder besser noch alles was kein Datum ist als Text formatieren ( 'Hochkomma voranstellen)?
Unter der Voraussetzung genügt dann ein einfaches =MAX(A9:ZZ9)

Eine andere Möglichkeit wäre eine extra Basic-function, z.B:

Code: Alles auswählen

function maxdatum(sheetname,Zellbereich)
	odoc = thisComponent
	osheet = odoc.sheets().getbyname(sheetname)
	ocellrange = osheet.getcellrangebyname(Zellbereich)
	
	iErsteSpalte = oCellRange.rangeAddress.startColumn
	iErsteZeile = oCellRange.rangeAddress.startRow
	iLetzteSpalte = oCellRange.rangeAddress.EndColumn
	iLetzteZeile = oCellRange.rangeAddress.EndRow
maxdatum = 0	
For i = iErsteZeile to iLetzteZeile
	For m = iErsteSpalte to iLetzteSpalte
		oCell=osheet.getCellByPosition(m,i)
		if ocell.numberformat = 37 and  maxdatum < ocell.value then
			maxdatum = ocell.value
		end if
	next m
next i   
    
end function
Aufrufen müsstest du sie in der Form:
=MAXDATUM("Tabelle1";"A9:ZZ9")
Beachte dabei:
- die Adressangabe in "Anführungszeichen"
- Die Neuberechnung erfolgt nicht automatisch sondern nur mit der Tastenkombi 'strg'+'shift'+'enter'

Gruß Karo