> From: Holger Schulz [mailto:q...@gmx.net]
> 1. kann ich mir irgendwo anzeigen lassen, für welche Bereiche
> bedingte Formatierungen eingetragen sind?
Das folgende Makro sollte alle Zellen des aktiven Tabellenblatts markieren
welche
eine bedingte Formatierung beinhalten:
Sub Main
akt_blatt = ThisComponent.CurrentController.ActiveSheet
cur = akt_blatt.CreateCursor
cur.GotoEndOfUsedArea(True)
letzte_Zeile = Cur.getRangeAddress.EndRow
letzte_Spalte = Cur.getRangeAddress.EndColumn
bereiche =
ThisComponent.CreateInstance("com.sun.star.sheet.SheetCellRanges")
For i = 0 To letzte_Zeile
For j = 0 To letzte_Spalte
If akt_blatt.getCellByPosition(j,
i).ConditionalFormatLocal.Count <> 0 Then
bereiche.addRangeAddress(akt_blatt.getCellByPosition(j, i).getRangeAddress(),
False)
End If
Next j
Next i
ctr = ThisComponent.CurrentController
ctr.Select(bereiche)
End Sub
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org
