gefilterte Spalte im Ausdruck markieren

03/09/2007 - 20:08 von Wolfgang Kutsche | Report spam
Hallo NG,

ich möchte in einem Ausdruck, der einen AutoFilter-Bereich umfasst die
Spalten per VBA kennzeichnen, in denen gefiltert wurde( schwarzer Pfeil wird
blau).

Wie finde ich die Spalten-Nr. per VBA?

Habe in dieser Newsgroop und beim Googlen nur Hinweise zum Setzen des
Filters gefunden.

Gruß Wolfgang
WinXP Home SP2, Office 2003 SP2
http://www.wk-bau-edv.de
 

Lesen sie die antworten

#1 Thomas Ramel
03/09/2007 - 22:46 | Warnen spam
Grüezi Wolfgang

Wolfgang Kutsche schrieb am 03.09.2007

ich möchte in einem Ausdruck, der einen AutoFilter-Bereich umfasst die
Spalten per VBA kennzeichnen, in denen gefiltert wurde( schwarzer Pfeil wird
blau).

Wie finde ich die Spalten-Nr. per VBA?



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


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:

¯_KRIT(A2)<>""

Wenn Du nun den Autofilter in dieser Zelle benutzt wird die Überschrift
eingefàrbt.

Wiederhole die Schirtte mit dem Autofilter 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

Ähnliche fragen