OpenOffice.info

Ha! ich habs!
[url]http://disemia.com/software/openoffice/macro_arrays.html[/url]
keine dim's , keine as's und return mit Klammern =result().

Sooo einfach ist das :oops:

sub createTimeline
	dim countObjects as integer
	countObjects = getCountObjects()
	
	dim _objects(countLines, 7) as variant
	_objects = read_bestand(countObjects)
	
end sub
function getCountObjects() as integer
	
	dim tab as object
	tab = getTabStr("bestand")
	beg_read_x = 1
	beg_read_y = 12
	countLines = 0
	do until false
		if getCellStr(tab, beg_read_x, beg_read_y + countLines) = "" then 
			exit do
		else
			countLines = countLines + 1
		end if
	loop
	countLines = countLines -1
	getCountObjects = countLines
	
end function

function read_bestand(countLines as integer) as variant
	msgBox(countLines)
	dim tab as object
	tab = getTabStr("bestand")
	dim beg_read_x as integer, beg_read_y as integer, x as integer, y as integer, i as integer, ii as integer
	
	beg_read_x = 1
	beg_read_y = 12
	dim _line(6)
	dim ret as object
	
	dim result(countLines, 7) as variant
	'dim result as variant
	for i = 0 to countLines step 1
	
		result(i,0) = getCellStr(tab, beg_read_x, i + beg_read_y)
		for ii = 1 to 6 step 1
		
			result(i,ii) = getCellNum(tab, beg_read_x + ii, i + beg_read_y)
		next ii
	next i
	read_bestand = result
end function

[b]Wie um himmels willen bekomme ich result nach _objects???[/b]

function xy() as Array ' geht gar nicht

Unterstützt (Arrrggg...)Basic keine übergabe von Arrays!?!
Alles mögliche habe ich schon ausprobiert. Das Ergebnis ist immer das Gleiche:
Dimensionsangaben passen nicht zueinander.(Punkt -mist-)

Kann doch wohl nicht sein, das (Arrrggg...)Basic das nicht unterstützt

[code]sub createTimeline
dim countObjects as integer
countObjects = getCountObjects()

dim _objects(countLines, 7) as variant
_objects = read_bestand(countObjects)

end sub
function getCountObjects() as integer

dim tab as object
tab = getTabStr("bestand")
beg_read_x = 1
beg_read_y = 12
countLines = 0
do until false
if getCellStr(tab, beg_read_x, beg_read_y + countLines) = "" then
exit do
else
countLines = countLines + 1
end if
loop
countLines = countLines -1
getCountObjects = countLines

end function

function read_bestand(countLines as integer) as variant
msgBox(countLines)
dim tab as object
tab = getTabStr("bestand")
dim beg_read_x as integer, beg_read_y as integer, x as integer, y as integer, i as integer, ii as integer

beg_read_x = 1
beg_read_y = 12
dim _line(6)
dim ret as object

dim result(countLines, 7) as variant
'dim result as variant
for i = 0 to countLines step 1

result(i,0) = getCellStr(tab, beg_read_x, i + beg_read_y)
for ii = 1 to 6 step 1

result(i,ii) = getCellNum(tab, beg_read_x + ii, i + beg_read_y)
next ii
next i
read_bestand = result
end function[/code][/b]