Hallo
Folgende Variante eignet sich auch für Textinhalte:
Sub gleiche_verbinden_flipflop
odoc = thisComponent
with odoc.sheets(0) '1.Tabellenblatt
iz = 0 : ez = 1
do until .getcellbyposition(0, iz).string = "" 'bis zur 1.Leerzelle in Sp.A
if .getcellbyposition(0,iz).string <> .getcellbyposition(0,ez).string then
oBereich = .getCellRangeByPosition(0,iz,0,ez-1)
oBereich.merge( not oBereich.getIsMerged() )
iz = ez
end if
ez = ez + 1
loop
end with
End Sub
Gruß Werner
---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscr...@de.openoffice.org
For additional commands, e-mail: users-h...@de.openoffice.org
