OpenOffice.info

Code: Alles auswählen

sub join_to_ColA()
with thisComponent.sheets(0) '1.Tabelenblatt

for i = 0 to  999  ' zeilenindex anpassen
    data = .getCellRangeByPosition(0, i, 11, i).getDataArray()
    sstring = join( data(0), ";")
    .getCellByPosition(0, i).string = sstring
next
end with
end sub