Microsoft Office Tutorials and References
In Depth Information
6.7.3 Anwendung Microsoft Excel schließen
"Getränke", xlOr, "Gewürze"
End Sub
Die integrierte Konstante xlOr sorgt dafür, dass das eine oder das andere
Kriterium zutreffen muss.
Bei Textfiltern können Sie auch mit Platzhaltern arbeiten:
Mit Platzhalter
Sub TextfilterBeginntMit()
ThisWorkbook.Worksheets("Tabelle5").Activate
ActiveSheet.UsedRange.AutoFilter
ActiveSheet.UsedRange.AutoFilter 2, "M*"
End Sub
Nun werden nur noch die Datensätze angezeigt, deren Wert in Spalte 2
(Artikelname) mit »M« beginnt. Falls nur ein Teil des Textes bekannt ist,
kann der Platzhalter auch doppelt angewandt werden:
Sub TextfilterEnthält()
ThisWorkbook.Worksheets("Tabelle5").Activate
ActiveSheet.UsedRange.AutoFilter
ActiveSheet.UsedRange.AutoFilter 2, "*ed*"
End Sub
Nun werden nur noch die Datensätze angezeigt, deren Wert in Spalte 2
(Artikelname) an irgendeiner Stelle die Zeichenfolge ed enthält.
Als Letztes wird der Datumsfilter gezeigt. Dabei sollte die amerikanische
Schreibweise für Daten verwendet werden ( JJJJ/M/T ):
Datumsfilter
Sub Datumsfilter()
ThisWorkbook.Worksheets("Tabelle5").Activate
ActiveSheet.UsedRange.AutoFilter
ActiveSheet.UsedRange.AutoFilter _
7, ">=2010/1/22", xlAnd, "<=2010/1/28"
End Sub
Es werden nur noch die Datensätze angezeigt, deren Wert in der Spalte
7 (letzter Einkauf) zwischen dem 22.01.2010 und dem 28.01.2010 liegt,
einschließlich des Anfangs- und Enddatums.
Search JabSto ::




Custom Search