Formel: Suche letzte ausgefüllte Zelle in einer Zeile und ge

[Karolus]

Hallo
Falls die Kurse bsplw. bis Spalte G "reichen" trag in F2 ein:

Code: Alles auswählen

=INDEX(A$1:G$1;MAX(SPALTE(A2:G2)*(A2:G2<>"")))

Diese Formel zeigt jetzt zunächst nur #wert an - das ändern wir später, zieh die Formel zuerst nach unten über alle Zeilen.
Selektier dann jede einzeln und wandle sie mit 'Strg+shift+enter' oder alternativ durch Aktivierung der Option [x]Matrix (im Formelassistenten) in eine Matrixfunktion.
Falls du dir Arbeit ersparen möchtest und mit Makros umgehen kannst markiere stattdessen alle zusammen und lass forlgendes Makro laufen:

Code: Alles auswählen

sub Formeln_matrixen
odoc = thisComponent
osheet = odoc.currentController.activesheet
osel = odoc.currentselection()
esp = osel.rangeaddress.startcolumn
ez = osel.rangeaddress.startrow
lsp = osel.rangeaddress.endcolumn
lz = osel.rangeaddress.endrow
for isp = esp to lsp
	for iz = ez to lz
		osheet.getcellbyposition(isp,iz).arrayformula =_
		osheet.getcellbyposition(isp,iz).formula
	next iz
next isp
end sub

Gruß Karo

[Karolus]

Hallo Palljass
Au mann ja , und ich Hirni bin so aufs "ziehen" von Formeln fixiert das ich 'copy und paste' gar nicht mehr ausprobiere.
Danke für den Tip - dann kann ich jetzt das mühsam geschriebene Makro entsorgen.

Gruß Karo