OpenOffice.info

Hallo Listlinge,

das hätte ich vor drei Monaten haben müssen .., oder eben hier nachfragen sollen.

Danke für die tolle Arbeit!

Besteht denn jetzt auch noch die Möglichkeit, den ausgefilterten Bereich aufsteigend zu nummerieren?
Dann könnte man auf Anhieb sehen, das ist der siebte Eintrag der Kategorie blau oder rot.
Eventuell setzt man vor die Nummerierungszahl noch ein Kürzel, welches diese Kategorie kennzeichnet.
Dann könnte man diesen Wert als Basis für bedingte Formatierungen für den Rest der Zeilen verwenden.

Gruß

Jo

Sub S_hide_cells_having_selected_backgroundcolor
    osel = Thiscomponent.currentselection
    if not osel.supportsservice("com.sun.star.sheet.SheetCell")then
        msgbox ("Bitte eine einzelne Zelle auswählen",16,"Error: Farbfilter")
        exit sub
    endif
    ncolor = osel.cellbackcolor
    nsheet = osel.celladdress.Sheet
    ncolumn = osel.celladdress.column
    osheet = thiscomponent.sheets(nsheet)
    ocursor = osheet.createcursor
    ocursor.gotoendofusedarea(false)
    nEndrow = ocursor.RangeAddress.endrow
    for i = 1 to nEndrow 'erste Zeile (0) bleibt stehen
        ocell = osheet.getcellbyposition(ncolumn,i)
        if ocell.cellbackcolor = ncolor then
            osheet.rows(i).IsVisible = true
        else
            osheet.rows(i).IsVisible = false
        endif
    next i
End Sub

Hallo Calc_Nutzer,
mit einem Makro gehts.
Benutzung: Markiere [color=#0040FF]eine [/color]Zelle mit der gewünschten Hintergrundfarbe und führe das Makro aus.
Willst Du alle Zeilen wieder sehen, klicke ganz oben links in das graue Rechteck zwischen dem Spaltenkopf [color=#0040FF][b]A[/b][/color] und dem Zeilenkopf [color=#0040FF][b]1[/b][/color] -> Format/Zeilen/Einblenden
[code]Sub S_hide_cells_having_selected_backgroundcolor
osel = Thiscomponent.currentselection
if not osel.supportsservice("com.sun.star.sheet.SheetCell")then
msgbox ("Bitte eine einzelne Zelle auswählen",16,"Error: Farbfilter")
exit sub
endif
ncolor = osel.cellbackcolor
nsheet = osel.celladdress.Sheet
ncolumn = osel.celladdress.column
osheet = thiscomponent.sheets(nsheet)
ocursor = osheet.createcursor
ocursor.gotoendofusedarea(false)
nEndrow = ocursor.RangeAddress.endrow
for i = 1 to nEndrow 'erste Zeile (0) bleibt stehen
ocell = osheet.getcellbyposition(ncolumn,i)
if ocell.cellbackcolor = ncolor then
osheet.rows(i).IsVisible = true
else
osheet.rows(i).IsVisible = false
endif
next i
End Sub[/code]
Anbei noch eine Beispieldatei

Gruß R

Hallo Calc_Nutzer,

ein Funke Hoffnung besteht noch ;)
Hast du die Liste selbst erstellt bzw ist dir bekannt aus welchem Grund die Zeilen gelb markiert sind?

Man kann zwar nicht nach der Farbe Gelb filtern aber möglicherweise nach dem Grund warum man sie gefärbt hat,
zb weil ein Wert über oder unterschritten ist, oder ein Wort vorkommt, oder warum?

[quote="Calc_Nutzer"]Hallo,
Kann man, wenn ja wie, nach Zellfarben [b]sortieren[/b]??
D.h. ich habe eine lange liste (100 Zeilen) und ab und zu ist eine Zeile gelb markiert.
Nun möchte [b]ich filtern[/b] - und mir nur die gelben Zeilen anzeigen lassen.[/quote]

[b]filtern[/b] ist nicht [b]sortieren[/b] - und beides geht nicht mit Bordmitteln mit Hintergrundfarben.

100 Zeilen sind keine [u]lange[/u] Liste - füg einfach eine Spalte ein in der du in den gelben Zeilen eine 1 oder 'x' .. einträgst, nach der Spalte kannst du dann sortieren oder filtern ( →Daten→Filter→Standardfilter...|→Daten→Sortieren...)

Karolus