Farbigen Zellhintergrund aus Symbolleiste

[landbastler]

Hallo,
da die Suche im Board nicht funktioniert hier mein Problem. Ich habe öfter große Tabellen zu kontollieren. Um die bereits erledigten Zellen zu kennzeichnen möchte ich diese farblich unterlegen. Im Gegensatz zu Excel muß ich hier aber jedesmal die Farbpalette aufrufen, da die einmal benutzte Farbe nicht in der Schaltfläche erhalten bleibt. Kann man das in Calc auch so einstellen, sodass ich bei jeder weiteren Zelle nur die Schaltfläche anklicken muß?

Gruß landbastler

[Eddy]

Hallo landbastler,

da die Suche im Board nicht funktioniert

siehe da: viewtopic.php?f=2&t=45659

Kann man das in Calc auch so einstellen, sodass ich bei jeder weiteren Zelle nur die Schaltfläche anklicken muß?

Nein.

Gruß zurück

Eddy

[landbastler]

Hallo Rocko,
ich bin immer für alles offen. Haupsache das Ziel ist damit erreichbar. Achso ich hatte vergessen die Version anzugeben. Ich habe gerade eine Update von OOo3.2.1 auf OOo3.3.0 vorgenommen.

Gruß landbastler

[Eddy]

Hallo landbastler,

ich bin immer für alles offen

dann von mir der Hinweis, dass die Farbpalette zum "abreißen" ist. In den oberen Rand klicken und an eine genehme Stelle ziehen.

Mit gezogenen Grüßen

Eddy

[landbastler]

Gut, Vorgang ausgeführt. Mit der Lösung kann ich erstmal leben. Totzdem werde ich mal sehen welche Vorschläge Rocko noch hat.

Gruß landbastler

[landbastler]

Hallo Rocko,
ich werde das mal in den nächsten Tagen ausprobieren.

Danke landbastler

[komma4]

Vorab:

Vorlagen verwenden finde ich gut!



Habe trotzdem noch eine Makro-Lösung, schnell angepasster Code (aus meinem Makro colorSelection)

Hier wird nicht abwechselnd eingefärbt, sondern für die Auswahl (eine Zelle, mehere Zellen oder Zellbereich) die gleiche Farbe eingestellt.

Zum Ändern der Farbe die RGB (Rot-, Grün-, Blau-)Werte in der Zeile lEvenColor = RGB(148,188,88) anpassen.

Code: Alles auswählen

Sub colorCalcCellsSelection
sModulName = "wr CALC Modul"
sModulSubName = "1colorCalc CellsSelection"
sModulVersion = "20040812"
sModulVersion = "20110824"


oDoc = ThisComponent

If Not oDoc.supportsService(_
	"com.sun.star.sheet.SpreadsheetDocument" ) Then
	MsgBox _
		"Makro wurde nicht von einem Calc-Dokument aufgerufen." & CHR(10) _
		& CHR(10) & "Erklärung:" _
		& CHR(10) & "Dieses Makro setzt vordefinierte Farben in den benutzten" _
		& CHR(10) & "Zellbereich des aktuellen Blatts oder in alle Blätter   " _
		& CHR(10) & "bei CALC-Dateien und funktioniert nur dort." _
		& CHR(10) _
		& CHR(10) & "Makro " & sModulSubName & " wird nun beendet." _
		, 48 , sModulName & sModulVersion
	Exit Sub
End If

' get selection
oSel = oDoc.getCurrentSelection

' selection of cells?
If Not oSel.supportsService(_
	"com.sun.star.table.CellProperties" ) Then
	MsgBox _
		"Keine Auswahl getroffen." & CHR(10) _
		& CHR(10) & "Erklärung:" _
		& CHR(10) & "Dieses Makro setzt eine Zellhintergrundfarbe" _
		& CHR(10) & "in ausgewählten Zellbereichen." _
		& CHR(10) & "Die momentane Auswahl ist aber kein Zellbereich." _
		& CHR(10) _
		& CHR(10) & "Makro " & sModulSubName & " wird nun beendet." _
		, 48 , sModulName & sModulVersion
	Exit Sub
end if

' RGB: Red/Green/Blue portion of color
' values could range from 0 to 255
' see Tools > OpenOffice.org > Colors for values
' 0,0,0: Black
' 255,255,255: White
' 
' verwendete Farbe
lEvenColor = RGB(148,188,88) 


' one or more selected cell ranges?
If Not oSel.supportsService(_
	"com.sun.star.table.CellRange" ) Then
	' more than one range
	' get addresses
	vRanges = oSel.getRangeAddresses
	' loop for all selections
	for j = 0 to uBound(vRanges)
		' range of looping selection
		oCellRangeAdr = vRanges(j)
		' address
		PROC_prepareAdr
		' do it
		PROC_colorSelection
	next j

else
	' one selection
	' range of one selection
	oCellRangeAdr = oSel.getRangeAddress
	' address
	PROC_prepareAdr
	' do it
	PROC_colorSelection	
end if

End Sub

' -------------------------------------------------------------------
Sub PROC_prepareAdr
' get sheet
actSheet = oDoc.Sheets.getByIndex(oCellRangeAdr.Sheet)
' set start / end 
lStartCol = oCellRangeAdr.StartColumn
lStartRow = oCellRangeAdr.StartRow
lEndCol = oCellRangeAdr.EndColumn
lEndRow = oCellRangeAdr.EndRow
End Sub

' -------------------------------------------------------------------
Sub PROC_colorSelection
' step 1: apply even color to all cells of all selected regions
' this is for performance purposes
actRange = _
	actSheet.getCellRangeByPosition(lStartCol,lStartRow,lEndCol,lEndRow)
actRange.setPropertyValue("CellBackColor", lEvenColor)

End Sub

Querverweise
http://www.ooowiki.de/MakrosInstallieren
http://www.ooowiki.de/MakrosMitEinemKlick


Viel Spass mit OOo!