Hallo
Andreas Borutta schrieb:
> Fehlt noch ein Makro als Wechselschalter "Bedingte Formatierung
> ein/aus".
Ich würde gleich die ganze Aufgabenstellung mit einem
"Wechselschalter"-makro lösen das zwischen dem Verbinden gleichwertiger
Zellen und der Aufhebung der Verbindung hin und her schaltet:
Sub gleiche_verbinden_flipflop
odoc = thisComponent
with odoc.sheets(0) '1.Tabellenblatt
iz = 0 : ez = 1
do until .getcellbyposition(0, iz).value = 0'bis zum 1. Nullwert in Sp.A
if .getcellbyposition(0,iz).value <> .getcellbyposition(0,ez).value then
oBereich = .getCellRangeByPosition(0,iz,0,ez-1)
If oBereich.getIsMerged() then
oBereich.merge( false )
Else
oBereich.merge( true )
End If
iz = ez
end if
ez = ez + 1
loop
end with
End Sub
Gruß Werner
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
