Farbe von Pfeilen bei Autofilter
Stefan Müller
Folgendes Problem stellt sich:
Benutze ich in einer Exceldatei den Autofilter werden die dann
angezeigten Pfeile schwarz dargestellt. Dieser Pfeil, der im MOment
aktiv gefiltert ist wird blau dargestellt. Doch oft ist es mir nicht
möglich wirklich den Unterschied zwischen den blauen und schwarzen
Pfeilen zu erkennen (nein es liegt nich an meinen Augen). Gibt es eine
Möglichkeit in Excel eine Einstellung vorzunehmen, dass die Farbe
nicht mehr blau ist, sondern z.B. rot?
Jemand eine Idee?
Tschüß
Stefan
Thomas Ramel
Stefan Müller schrieb am 11.02.2008
Vielleicht kannst du das auch anders lösen?
Verwende die folgende Funktion in Verbindung mit der Bedingten
Formatierung, dann kannst Du die Überschriften der gefilterten Spalten
anders einfärben lassen:
Public Function AF_KRIT(Bereich As Range) As String
'Liest die Kriterien des Autofilters aus und listet diese in einer Zelle
'Als Bezug wird die erste Zelle nach dem Spaltentitel angegeben:
AF_KRIT(A2)
Dim s_Filter As String
s_Filter = ""
On Error GoTo Ende
With Bereich.Parent.AutoFilter
With .Filters(Bereich.Column - .Range.Column + 1)
s_Filter = .Criteria1
Select Case .Operator
Case xlAnd
s_Filter = s_Filter & " UND " & .Criteria2
Case xlOr
s_Filter = s_Filter & " ODER " & .Criteria2
End Select
End With
End With
Ende:
AF_KRIT = s_Filter
End Function
--> Schliesse den VBA-Editor mit Alt+Q
Jetzt steht in dieser Mappe die Funktion 'AF_Krit' im Funktions-Assistenten
unter der Rubrik 'Benutzderdefiniert' zur Verfügung.
Markiere nun die Überschriften-Zelle einer Spalte in dem Du den Autofilter
verwendest und gib unter Format --> Bedingte Fomratierung die folgende
Formel ein (den Bezug musst Du noch anpassen auf die Zelle unmittelbar
unterhalb der Überschrift) und lege eine Farbe fest:
=AF_KRIT(A2)<>""
Wenn Du nun den Autofilter in dieser Zelle benutzt wird die Überschrift
eingefärbt.
Wiederhole die Schritte mit der Bedingten Formatierung für alle Spalten die
Du möchtest.
Mit freundlichen Grüssen
Thomas Ramel
--
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2003 SP-2]
Microsoft Excel - Die ExpertenTipps
Stefan Müller
HI Thomas,
danke für deine Hilfe!
Habe das Script wie von dir vorgegeben in VBA (als Modul) eingegeben.
Unter den Benutzerdefinierten Funktionen kann ich da AF_KRIT auch
sehen und bei der bedingten Formatierung habe ich auch die Formel wie
oben eingetippt und ein Format ausgewählt. Doch funktionieren will es
irgenwie nicht so recht.
In Zelle A1 habe ich z.B. die Überschrift Datum stehen, hier möchte
ich dann bestimmte Daten rausfiltern. Also lasse ich A2 wie in deinem
Beispiel stehen. Doch wie geht es jetzt weiter? Muss ich jetzt die
Zelle A1 markieren und dann über Einfügen-> Funktionen -> AF_Krit
auswählen und dann als Bereich die Spalte A angeben, oder wie muss ich
da machen? Kannst du mir nochmal auf die Sprünge helfen? Vielen Dank.
Gruß
Stefan
Thomas Ramel
Stefan Müller schrieb am 12.02.2008
> On 11 Feb., 21:49, Thomas Ramel <t.ra...@MVPs.org> wrote:
>
>> Markiere nun die Überschriften-Zelle einer Spalte in dem Du den Autofilter
>> verwendest und gib unter Format --> Bedingte Fomratierung die folgende
>> Formel ein (den Bezug musst Du noch anpassen auf die Zelle unmittelbar
>> unterhalb der Überschrift) und lege eine Farbe fest:
>>
>> =AF_KRIT(A2)<>""
>>
>> Wenn Du nun den Autofilter in dieser Zelle benutzt wird die Überschrift
>> eingefärbt.
> Habe das Script wie von dir vorgegeben in VBA (als Modul) eingegeben.
> Unter den Benutzerdefinierten Funktionen kann ich da AF_KRIT auch
> sehen und bei der bedingten Formatierung habe ich auch die Formel wie
> oben eingetippt und ein Format ausgewählt. Doch funktionieren will es
> irgenwie nicht so recht.
> In Zelle A1 habe ich z.B. die Überschrift Datum stehen, hier möchte
> ich dann bestimmte Daten rausfiltern. Also lasse ich A2 wie in deinem
> Beispiel stehen. Doch wie geht es jetzt weiter? Muss ich jetzt die
> Zelle A1 markieren und dann über Einfügen-> Funktionen -> AF_Krit
> auswählen und dann als Bereich die Spalte A angeben, oder wie muss ich
> da machen? Kannst du mir nochmal auf die Sprünge helfen? Vielen Dank.
Markiere A1, also deine Spaltenüberschrift und lege dafür die Bedingte
Formatierung mit der oben stehenden Formel fest und wähle eine Farbe aus.
Wenn Du dann einen Autofilter setzt wird die Zelle mit der
Spaltenüberschrift entsprechend eingefärbt.
Mit freundlichen Grüssen
Thomas Ramel
--
Ute Simon
angezeigten Pfeile schwarz dargestellt. Dieser Pfeil, der im MOment
aktiv gefiltert ist wird blau dargestellt. Doch oft ist es mir nicht
möglich wirklich den Unterschied zwischen den blauen und schwarzen
Pfeilen zu erkennen (nein es liegt nich an meinen Augen). Gibt es eine
Möglichkeit in Excel eine Einstellung vorzunehmen, dass die Farbe
nicht mehr blau ist, sondern z.B. rot?
Hallo Stefan,
die Farben Schwarz und Blau sind insofern "richtig", da sie auch von
farbenblinden Personen unterschieden werden können (die würden Dunkelrot und
Schwarz u.U. verwechseln). Aber auch Microsoft hat gelernt und nutzt in
Excel 2007 nun nicht nur unterschiedliche Farben, sondern auch
unterschiedliche Symbole, um einen Filter darzustellen. In der neuesten
Version entfällt also dieses leidige Problem.
Ein VBA-freier Weg in Excel 2003 und älteren Versionen ist mir leider nicht
bekannt.
Viele Grüße
Ute
--
Ute Simon
Microsoft PowerPoint MVP Team und PowerPoint-User-Team
Schon gesehen? www.ppt-user.de/blogger und www.ppt-tv.de