Microsoft Office Tutorials and References
In Depth Information
6.7.3 Anwendung Microsoft Excel schließen
Es folgt ein Filter mit zwei Bedingungen (bezüglich einer Spalte), die mit-
einander verknüpft sind:
Filter verknüpft
Sub ZahlenfilterZwischen()
ThisWorkbook.Worksheets("Tabelle5").Activate
ActiveSheet.UsedRange.AutoFilter
ActiveSheet.UsedRange.AutoFilter 6, ">20", xlAnd, "<40"
End Sub
Nun werden nur noch die Datensätze angezeigt, deren Wert in der Spalte
6 (Lagerbestand) größer als 20 und kleiner als 40 ist. Die integrierte Kon-
stante xlAnd stellt die Verknüpfung her.
Es können auch zwei Bedingungen in unterschiedlichen Spalten mitein-
ander verknüpft werden:
Filter über zwei
Spalten
Sub DoppelFilter()
ThisWorkbook.Worksheets("Tabelle5").Activate
ActiveSheet.UsedRange.AutoFilter
ActiveSheet.UsedRange.AutoFilter 5, ">20"
ActiveSheet.UsedRange.AutoFilter 6, ">40"
End Sub
Nun werden nur noch die Datensätze angezeigt, deren Wert in der Spalte
5 (Einzelpreis) größer als 20 ist und deren Wert in der Spalte 6 (Lagerbe-
stand) größer als 40 ist. Beide Filter werden nacheinander angewandt,
wodurch sich die Filterung verstärkt.
Mithilfe von Textfiltern können Spalten mit textlichen Inhalten gefiltert
werden. Zunächst ein einfaches Beispiel:
Textfilter
Sub TextfilterGleich()
ThisWorkbook.Worksheets("Tabelle5").Activate
ActiveSheet.UsedRange.AutoFilter
ActiveSheet.UsedRange.AutoFilter 3, "Getränke"
End Sub
Nun werden nur noch die Datensätze aus der Kategorie »Getränke« ange-
zeigt.
Falls Sie die Artikel mehrerer Kategorien sehen möchten, geht das fol-
gendermaßen:
Mehrere
Kategorien
Sub TextfilterMehrereGleich()
ThisWorkbook.Worksheets("Tabelle5").Activate
ActiveSheet.UsedRange.AutoFilter
ActiveSheet.UsedRange.AutoFilter 3, _
Search JabSto ::




Custom Search