Application.FilterEdit method (Project)
Erstellt, bearbeitet oder kopiert einen Filter.
Syntax
Ausdruck. FilterEdit (Name, TaskFilter, Create, OverwriteExisting, Parenthesis, NewName, FieldName, NewFieldName, Test, Value, Operation, ShowInMenu, ShowSummaryTasks)
expression Eine Variable, die ein Application-Objekt darstellt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
Name | Erforderlich | String | Der Name des Filters, der zu bearbeiten, zu erstellen oder zu kopieren ist. |
TaskFilter | Erforderlich | Boolean | True, Wenn der mit Name angegebene Filter Vorgangsinformationen enthält. False, Wenn der Filter Ressourceninformationen enthält. |
Create | Optional | Boolean | True, Wenn ein neuer Filter erstellt wird. Der neue Filter ist eine Kopie des mit Name angegebenen Filters und erhält den mit NewName angegebenen Namen. Wenn NewName leer ist, erhält der neue Filter den durch Name angegebenen Namen. Der Standardwert ist False. |
OverwriteExisting | Optional | Boolean | True, Wenn der vorhandene Filter mit einem neuen Filter überschrieben wird. Der Standardwert ist False. |
Parenthesis | Optional | Boolean | True, Wenn das mit FieldName, Test und Value eingerichtete Kriterium als eine in Klammern AND oder OR -Klausel (der mit Operation angegebene Wert) im Verhältnis zu anderen Kriterien im die Art und Weise (a und b) ausgewertet wird oder c. |
Newname | Optional | String | Ein neuer Name für den filter, der mit Name angegeben ist (Create ist False) oder ein Name für den neuen Filter (Create ist True). Wenn NewName leer ist und Create den Wert False, behält der mit Name angegebene Filter den derzeitigen Namen. Der Standardwert ist Empty. |
FieldName | Optional | String | Der Name eines zu ändernden Felds. |
NewFieldName | Optional | String | Ein neuer Name für das mit FieldName angegebene Feld. |
Test | Erforderlich | String | Die Art des zwischen FieldName und Value ausgeführten Vergleichs, der als Auswahlkriterium für den Filter dient. Dies kann eine der Vergleichszeichenfolgen sein. |
Wert | Optional | String | Der Wert, der mit dem Wert des mit FieldName angegebenen Felds verglichen werden soll. |
Vorgang | Optional | String | Gibt an, wie das mit FieldName, Test und Value eingerichtete Kriterium mit anderen Kriterien im Filter zusammenhängt. Das Operation-Argument kann auf And oder Or festgelegt werden. |
ShowInMenu | Optional | Boolescher Wert | True, Wenn der Filter in der Dropdownliste Filter angezeigt wird. Der Standardwert ist False. Hinweis Um die Liste der Filter anzuzeigen, klicken Sie im Menüband auf der Registerkarte Ansicht auf die Dropdownliste Filter . |
ShowSummaryTasks | Optional | Boolescher Wert | True, Wenn die Sammelvorgänge der gefilterten Vorgänge angezeigt werden. Der Standardwert ist False. |
Vergleichszeichenfolgen
Vergleichszeichenfolge | Beschreibung |
---|---|
"Gleich" | Der Wert von FieldName ist gleich Value. |
"Ungleich" | Der Wert von FieldName ist ungleich Value. |
"Größer als" | Der Wert von FieldName ist größer als Value. |
"Größer oder gleich" | Der Wert von FieldName ist größer oder gleich Value. |
"Kleiner als" | Der Wert von FieldName ist kleiner als Value. |
"Kleiner oder gleich" | Der Wert von FieldName ist kleiner oder gleich Value. |
"Innerhalb" | Der Wert von FieldName ist innerhalb von Value. |
"Nicht innerhalb" | Der Wert von FieldName ist nicht innerhalb von Value. |
"Enthält" | FieldName enthält Value. |
"Enthält nicht" | FieldName enthält keinen Wert. |
"Enthält genau" | FieldName enthält genau Value. |
Rückgabewert
Boolean
Beispiel
Im folgenden Beispiel wird ein Filter für Vorgänge mit der höchsten Priorität erstellt (sofern keiner vorhanden ist) und dann der Filter angewendet.
Sub CreateAndApplyHighestPriorityFilter()
Dim TaskFilter As Variant ' Index for For Each loop.
Dim Found As Boolean ' Whether or not the filter exists.
Found = False ' Assume the filter does not exist.
' Look for filter.
For Each TaskFilter In ActiveProject.TaskFilterList
If TaskFilter = "Highest Priority" Then
Found = True
Exit For
End If
Next TaskFilter
' If filter doesn't exist, create it.
If Not Found Then FilterEdit Name:="Highest Priority", _
Create:=True, TaskFilter:=True, FieldName:="Priority", _
Test:="equals", Value:="Highest"
FilterApply "Highest Priority"
End Sub
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.