OpenOffice.info

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

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

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

Hallo
Falls die Kurse bsplw. bis Spalte G "reichen" trag in F2 ein:
[code]=INDEX(A$1:G$1;MAX(SPALTE(A2:G2)*(A2:G2<>"")))[/code]
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]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[/code]

Gruß Karo