Autofilter Kriterien setzen
20.02.2014 08:25:17
Matthias
ich versuche über Vba einen Autofilter zu konfigurieren.
Bis jetzt habe ich in eine bestimmte Zelle ein Wert geschrieben oder über dropdown einen Wert _
ausgewählt. Dieser wurde dann an einen entsprechenden Filter in dieser Form weitergeleitet ( _
Funktioniert auch alles):
If Not kanbanlagerort = "" Then
Worksheets("Daten").Range("$A$1:$J$1355").AutoFilter Field:=3, Criteria1:= _
Kriterium
filter = 1
End If
Jetzt würde ich gerne per Checkbox zwei Werte allgemein ausschließen. Dafür wollte ich diesen _
Code verwenden:
If CheckBox1 = True Then Worksheets("Daten").Range("$A$1:$J$1355").AutoFilter Field:=5,
Criteria2:= _
"DefekteArtikel"
filter = 1
Leider schließt er hier alle Werte des Field5 aus. Mit dem Makrorecorder "schlägt Excel vor" einfach alle Werte ausser dem einen zu aktivieren. Da sich die Werte aber mit der Zeit ändern könnten will ich lieber eine nachhaltige Lösung. (ich könnte alle Werte der Spalte nehmen, doppelte rausschmeißen und dann einen String aufbauen. Fällt jemanden eine bessere Lösung ein?)
Mit freundlichen Grüßen
Matthias