mehrere Filter

28/02/2008 - 10:45 von Dana Emanniek | Report spam
Hallo Experten,

im Moment stehe ich auf dem Schlauch bezüglich Filtern:

In Spalte A meiner Tabelle stehen verschiedene Arbeitsschritte, in Zeile 1
(ab Spalte D) stehen verschiedene Prozesse.
In Spalte B stehen Ansprechpartner für die einzelnen Arbeitsschritte. Spalte
B hat einen Autofilter, damit man nach den Namen filtern kann.

Mit einem "+" in der entsprechenden Zelle habe ich markiert, welche
Arbeitsschritte für den entsprechenden Prozess relevant sind.

Wenn in Zeile 2 ein "X" geschrieben wird, wird für den entsprechenden
Prozess ein Autofilter gesetzt.
Range(Cells(3, Target.Column), Cells(letzte_Zeile,
Target.Column)).AutoFilter Field:=1, Criteria1:="+"

Leider geht dabei der Autofilter für die Spalte B verloren. Wie kann ich den
erhalten?

Danke und Gruß
Dana
 

Lesen sie die antworten

#1 Peter Schleif
28/02/2008 - 15:03 | Warnen spam
Dana Emanniek schrieb am 28.02.2008 10:45:

Leider geht dabei der Autofilter für die Spalte B verloren. Wie kann ich den
erhalten?



Indem Du vorher sein Kriterium in Sicherheit bringst und dieses (falls
vorhanden) dem neuen Filter hinzufügst:

Dim kriterium As String

If ActiveSheet.AutoFilterMode Then
If ActiveSheet.AutoFilter.Range.Column = 2 Then
If ActiveSheet.AutoFilter.Filters(1).On Then
kriterium = ActiveSheet.AutoFilter.Filters(1).Criteria1
End If
End If
End If

Der neue Filter muss sich dann allerdings von Spalte B bis
Target.Column erstrecken, weil Autofilter (in Excel 2002) nur für
zusammenhàngende Bereiche erlaubt sind.

Das gespeicherte Kriterium gehört im neuen Filter dann zu Field:=1
Das neue Kriterium ("=+") gehört zu Field:=(Target.Column - 1)

Peter

Ähnliche fragen