OpenOffice.info

Code: Alles auswählen

sub daten_uebertragen
odoc = ThisComponent
ozielTab = odoc.sheets(0)  '1.Tabellenblatt über den Index-
oquellTab = odoc.sheets().getbyname("Tabelle2") '-oder den Namen
orows = ozieltab.getrows
orows.insertbyindex(1,1) 'einfügen an 2.Pos.→index1, eine Zeile →1 
for zi = 2 to 22  ' Zeilenindex von dritter bis 23 Zeile
'↓überträgt B3:B23 aus Tabelle 2 in die 2.Zeile der ersten Tabelle
ozieltab.getcellbyposition(zielspalte, 1).string =_
oquelltab.getcellbyposition(1,zi ).string
zielspalte = zielspalte + 1
if zielspalte = 7 then
zielspalte = 12 'Spalte H - L überspringen
end if
next zi
'ectpp den Rest überlass ich dir
'..
end sub