OpenOffice.info

Das müsste mit folgendem Code funktionieren:
Sub Uebertragen
dim qzeile as integer
dim zzeile as integer

doc=thiscomponent
t1=doc.sheets(0)
t2=doc.sheets(1)

qzeile=0
do until t1.getcellbyposition(0,qzeile).string=""
zzeile=0
do until t2.getcellbyposition(0,zzeile).string=""
if t1.getcellbyposition(0,qzeile).string=t2.getcellbyposition(0,zzeile).string then
t2.getcellbyposition(1,zzeile).value=t2.getcellbyposition(1,zzeile).value + t1.getcellbyposition(1,qzeile).value
exit do
end if
zzeile=zzeile + 1
loop
qzeile=qzeile + 1
loop
end sub

Gruß, Friedhelm