OpenOffice.info

Hallo Karolus,

[quote="Karolus"]ich würde :
if BedFormat = 1 Then
ändern in
if BedFormat > 0 then[/[uote][/quote]
Alles klar. Vielen Dank für den Hinweis.

Jürgen

Hallo Jürgen
Dein Makro umrahmt nur diejenigen Zellen die genau ein BF enthalten.
ich würde :
if BedFormat = 1 Then
ändern in
if BedFormat > 0 then
damit auch Zellen mit mehreren Formatbedingungen erfasst werden.

Gruß Karo

Sub BF_suchen
	oDoc = ThisComponent
	oSheet = ThisComponent.CurrentController.getActiveSheet()
	oZell = oDoc.getCurrentSelection()
	oZell.supportsService("com.sun.star.sheet.SheetCellRange")
	oSelect=ThisComponent.CurrentSelection.getRangeAddress
	oSelectColumn=ThisComponent.CurrentSelection.Columns
	oSelectRow=ThisComponent.CurrentSelection.Rows
	CountColumn=oSelectColumn.getCount
	CountRow=oSelectRow.getCount
	Start_Column=oSelect.StartColumn
	End_Column=oSelect.EndColumn
	Start_Row =oSelect.StartRow
	End_Row=oSelect.EndRow
	For sp = Start_Column to End_Column
	For ze = Start_Row to End_Row
	oSelectSR = oSelect.StartRow + 1
	oSelectEC = oSelectColumn.getByIndex(CountColumn-1).getName
	oBereich = oSheet.getCellByPosition(sp,ze)	
	oBedingungen = oBereich.getPropertyValue( "ConditionalFormat" )
	BedFormat = oBedingungen.Count
	if BedFormat > 0 Then
	oBorder = oSheet.Tableborder
	oBorderline = oBorder.TopLine
	oBorderline.innerlinewidth = 50
	oBorderline.color = RGB (36, 93, 219)
	oBereich.topBorder = oBorderline
	oBereich.leftBorder = oBorderline
	oBereich.rightBorder = oBorderline
	oBereich.bottomBorder = oBorderline
	'oBereich.cellbackcolor = RGB(236, 233, 216)'Hintergrundfarbe Zelle
	end if
	next ze
	next sp
	msgbox "Die Überprüfung ist abgeschlossen!",64, "BF suchen"
End Sub[/

Hallo Zusammen,

[quote="balu"]Dabei geht die "Bedingte Formatierung" im GESAMTEN Tabellenblatt verloren.[/quote]

Folgendes Makro setzt einen blauen Rahmen um alle Zellen die eine BF enthalten:

[code]Sub BF_suchen
oDoc = ThisComponent
oSheet = ThisComponent.CurrentController.getActiveSheet()
oZell = oDoc.getCurrentSelection()
oZell.supportsService("com.sun.star.sheet.SheetCellRange")
oSelect=ThisComponent.CurrentSelection.getRangeAddress
oSelectColumn=ThisComponent.CurrentSelection.Columns
oSelectRow=ThisComponent.CurrentSelection.Rows
CountColumn=oSelectColumn.getCount
CountRow=oSelectRow.getCount
Start_Column=oSelect.StartColumn
End_Column=oSelect.EndColumn
Start_Row =oSelect.StartRow
End_Row=oSelect.EndRow
For sp = Start_Column to End_Column
For ze = Start_Row to End_Row
oSelectSR = oSelect.StartRow + 1
oSelectEC = oSelectColumn.getByIndex(CountColumn-1).getName
oBereich = oSheet.getCellByPosition(sp,ze)
oBedingungen = oBereich.getPropertyValue( "ConditionalFormat" )
BedFormat = oBedingungen.Count
if BedFormat > 0 Then
oBorder = oSheet.Tableborder
oBorderline = oBorder.TopLine
oBorderline.innerlinewidth = 50
oBorderline.color = RGB (36, 93, 219)
oBereich.topBorder = oBorderline
oBereich.leftBorder = oBorderline
oBereich.rightBorder = oBorderline
oBereich.bottomBorder = oBorderline
'oBereich.cellbackcolor = RGB(236, 233, 216)'Hintergrundfarbe Zelle
end if
next ze
next sp
msgbox "Die Überprüfung ist abgeschlossen!",64, "BF suchen"
End Sub[/[/code]

Man kann auch die Hintergrundfarbe der Zelle verändern, dann einfach den Code für die Border auskommentieren
und das Hochkomma in der Zeile mit der Hintergrundfarbe entfernen.

Zur Ausführung: Einen Zellbereich markieren, aber vorsicht, bitte nicht die ganze Tabelle markieren weil das Makro
dann unendlich lange läuft (256 mal 65536 Zellen!!!!!). Dann das Makro starten.

Schöne Grüsse

Jürgen

Hallo AhQ,

es gibt noch eine variante, wo wirklich nur die "Bedingte Formatierung" entfernt wird.
Einfach die betreffenden Zellen, Zeilen oder Spalten markieren, dann die "Bedingte Formatierung" aufrufen und bei allen Bedingungen das Häckchen rausnehmen. Man kann aber auch den Cursor in die Zelle A1 setzen, Strg+A (Alles auswählen) drücken und dann wie eben beschrieben weiter machen. Aber Vorsicht!!!
Dabei geht die "Bedingte Formatierung" im GESAMTEN Tabellenblatt verloren.

So, jetzt müssten eigentlich alle Möglichkeiten aufgelistet sein. :wink:


Gruß
balu

Also, wenn ich das richtig verstehe, willst Du einfach lästige Formate weghaben, oder? Dann markier einfach mal die fraglichen Spalten, Zeilen, Zellen oder was auch immer und drück Strg+Shift+Leertaste. Damit nimmst Du sämtliche Formatierungen raus, die nicht über Formatvorlagen gemacht wurden, inklusive der Bedingten Formatierung. Paß aber ein bißchen auf, damit nimmst Du natürlich in dem Bereich auch Formate raus, die Du vielleicht haben wolltest.

Wenn dann immer noch ein Bereich farbig ist und es nicht sein sollte, dann markier mal die Zelle und drück F11. Da kommst Du zu den Foramtvorlagen und kannst nachschauen, ob der Zelle vielleicht so eine zugewiesen wurde. Wenn ja, dann veränder entweder diese Vorlage oder weise der Zelle den Standard zu.

Damit solltest Du dann aber wirklich alle Formate bekämpfen können...

Zu guter Letzt fällt mir grad noch ein, die fraglichen Zellen markieren und die Entf-Taste drücken. In dem Menü, das kommt, die Haken raus nehmen, was nicht gelöscht werden soll (z.B. zahlen, Formeln etc) und den Haken bei Formate lassen bzw. setzen. Dann löscht Du auch die Formatierungen.

So, mehr fällt mir dazu jetzt aber nicht mehr ein.

Viele Grüße
AhQ

Hallo Sigurd,

schau mal [url=http://www.ooowiki.de/CalcFormatBedingt?highlight=%28KategorieCalc%29]hier[/url] in der OOo-Wiki nach, da findest Du was zur Bedingten Formatierung.

[quote="Sigurd"]gibt es eine Möglichkeit, bedingt formatierte Zellen und / oder Zellbereiche in einer Tabelle zu sehen?[/quote]

was meinst Du eigentlich mit "zu sehen"? Eine Formatierung kann ich nur sehen, die rechnet und verändert ja am Zellinhalt nix. Willst Du Dein Problem mal genau schildern?

Viele Grüße
AhQ