Seite 1 von 1
Farbigen Zellhintergrund aus Symbolleiste
Verfasst: Mi, 24.08.2011 09:00
von 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
Re: Farbigen Zellhintergrund aus Symbolleiste
Verfasst: Mi, 24.08.2011 09:08
von Eddy
Hallo landbastler,
landbastler hat geschrieben:da die Suche im Board nicht funktioniert
siehe da:
viewtopic.php?f=2&t=45659
landbastler hat geschrieben: 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
Re: Farbigen Zellhintergrund aus Symbolleiste
Verfasst: Mi, 24.08.2011 10:03
von 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
Re: Farbigen Zellhintergrund aus Symbolleiste
Verfasst: Mi, 24.08.2011 10:07
von Eddy
Hallo landbastler,
landbastler hat geschrieben: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
Re: Farbigen Zellhintergrund aus Symbolleiste
Verfasst: Mi, 24.08.2011 10:11
von 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
Re: Farbigen Zellhintergrund aus Symbolleiste
Verfasst: Mi, 24.08.2011 11:13
von landbastler
Hallo Rocko,
ich werde das mal in den nächsten Tagen ausprobieren.
Danke landbastler
Re: Farbigen Zellhintergrund aus Symbolleiste
Verfasst: Mi, 24.08.2011 11:22
von 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!