openoffice-users-de mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Jörg Schmidt <joe...@j-m-schmidt.de>
Subject Re: Bedingte Formatierung bearbeiten
Date Tue, 10 Feb 2015 10:05:42 GMT
> From: Holger Schulz [mailto:qdl@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-unsubscribe@openoffice.apache.org
For additional commands, e-mail: users-de-help@openoffice.apache.org


Mime
View raw message