Zellen nach Farben filtern

[Karolus]

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

filtern ist nicht sortieren - und beides geht nicht mit Bordmitteln mit Hintergrundfarben.

100 Zeilen sind keine lange 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

[clag]

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?

[F3K Total]

Hallo Calc_Nutzer,
mit einem Makro gehts.
Benutzung: Markiere eine 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 A und dem Zeilenkopf 1 -> Format/Zeilen/Einblenden

Code: Alles auswählen

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

Anbei noch eine Beispieldatei

Gruß R

[josinoro]

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