OpenOffice.info

[quote]Es setzt die Zellvorlage "Webmuster" auf alle Zellen die die gleiche Hintergrundfarbe haben, wie die im Augenblick des Makrostarts ausgewählte Zelle. Im Anschluss können alle im Beispiel ehemals grauen Zellen durch Änderung der Zellvorlage in einem Rutsch umformatiert werden.[/quote]

Gut gelöst, so ähnlich wollte ich das auch, ich wollte nur aber vorher eine Beispieldatei wegen der Farbe haben, das man das auch so mit Markierung auslesen machen kann war mir gerade nicht im Fokus.


Gruß
Stephan

Sub s_add_cellstyle
    osheet = ThisComponent.Sheets.getbyName("handgefaerbt")
    oSelection = ThisComponent.CurrentSelection
    if not oSelection.supportsservice("com.sun.star.sheet.SheetCell") then
        msgbox "Bitte einzelne Zelle markieren"
        exit sub
    endif
    nColor = oSelection.Cellbackcolor
    oCursor = oSheet.createCursor
    oCursor.gotoendofusedarea(false)
    nEndRow = oCursor.Rangeaddress.EndRow
    nEndColumn = oCursor.Rangeaddress.EndColumn
    oRange = oSheet.getcellrangebyposition(0,0,nEndColumn,nEndRow)
    oCellFormatRanges = oRange.CellFormatRanges
    for i = 0 to oCellFormatRanges.count - 1
        oCFR = oCellFormatRanges(i)
            if oCFR.Cellbackcolor = nColor Then 
                oCFR.Cellbackcolor = -1
                oCFR.CellStyle = "Webmuster"
            endif
    next i
End Sub

Hi,
und hier ein anderer Ansatz. Ich gehe davon aus, du hast bereits fertige Muster, bei denen die Zellen von Hand eingefärbt sind und möchtest alle per "Einfacheinstellung" ändern?
In beigefügter Datei befindet sich das folgende Makro:[code]Sub s_add_cellstyle
osheet = ThisComponent.Sheets.getbyName("handgefaerbt")
oSelection = ThisComponent.CurrentSelection
if not oSelection.supportsservice("com.sun.star.sheet.SheetCell") then
msgbox "Bitte einzelne Zelle markieren"
exit sub
endif
nColor = oSelection.Cellbackcolor
oCursor = oSheet.createCursor
oCursor.gotoendofusedarea(false)
nEndRow = oCursor.Rangeaddress.EndRow
nEndColumn = oCursor.Rangeaddress.EndColumn
oRange = oSheet.getcellrangebyposition(0,0,nEndColumn,nEndRow)
oCellFormatRanges = oRange.CellFormatRanges
for i = 0 to oCellFormatRanges.count - 1
oCFR = oCellFormatRanges(i)
if oCFR.Cellbackcolor = nColor Then
oCFR.Cellbackcolor = -1
oCFR.CellStyle = "Webmuster"
endif
next i
End Sub[/code]Es setzt die Zellvorlage "Webmuster" auf alle Zellen die die gleiche Hintergrundfarbe haben, wie die im Augenblick des Makrostarts ausgewählte Zelle. Im Anschluss können alle im Beispiel ehemals grauen Zellen durch Änderung der Zellvorlage in einem Rutsch umformatiert werden.
Gruß R

Hallo,

ich hatte gerade so eine Idee. In meiner Beispieldatei ist das Muster im Bereich A4:G15 (zur Anschauung mal umrahmt). Die Zellen sind so formatiert, das positive Zahlen nicht angezeigt werden und nur 1 oder X eingegeben werden. Wird eine 1 eingegeben, so wird die Zelle grau gefärbt (über eine bedingte Formatierung und die Formatvorlage grau). Die Anzahl grauer Zellen ist dann einfach die Summe über den Bereich. Sollen die grauen Zellen eine andere Farbe bekommen, brauchst du nur die Vorlage ändern.

[b]Du arbeitest falsch. Hättest Du statt die Zellen manuell grau einzufärben eine graue Zellvorlage benutzt bedürfte es jetzt nur dreier Mausklicks um alle grauen Zellen umzufärben.[/b]

[quote]Evtl auch per Makro ?
[/quote]
Ja.
Stelle bitte eine Beispieldatei zur Verfügung, dann kann man ein solches Makro schreiben.

Falls Du die Beispieldatei hier ins Forum hochladen willst musst Du Dich anmelden, ansonsten kannst Du sie auch anderswo hochladen und hier im Forum nur verlinken.



Gruß
Stephan