Hallo Leute,
ich will einen erstellten Filter über ein Makro aufrufen, welches dem Filter automatisch das Start und Enddatum mitteilt. Leider funktioniert das aber bei mir nicht so ganz.
Wäre prima wenn Ihr mich dabei unterstützen könntet.
Anbei die codes....
-----------------------------------------------------
Sub Makro1()
FilterEdit Name:="MST", TaskFilter:=True, Create:=True, OverwriteExisting:=True, FieldName:="Meilenstein", Test:="Gleich", Value:="Ja", ShowInMenu:=False, ShowSummaryTasks:=False
FilterEdit Name:="MST", TaskFilter:=True, FieldName:="", NewFieldName:="Anfang", Test:="Größer oder Gleich", Value:="22.05.06", Operation:="Und", ShowSummaryTasks:=False
FilterEdit Name:="MST", TaskFilter:=True, FieldName:="", NewFieldName:="Anfang", Test:="Kleiner oder Gleich", Value:="15.06.06", Operation:="Und", ShowSummaryTasks:=False
FilterApply Name:="MST"
End Sub
--------------------------------------------------------
Der obige Filter funktioniert einwandfrei, da das Datum beim jeweiligen Wert "Value" eingetragen ist. Soweit so gut, will ich aber nun "Value" mit dem aktuellen Datum und dem Datum in 21 Tagen belegen, so bekomme ich eine Fehlermeldung:
"Eintrag ungültig. Der Testwert kann für die Daten, die Sie filtern möchten oder nach denen Sie filtern, mit dem Feld nicht verwendet werden."
Hier nochmal der code der zur Fehlermeldung führt:
-----------------------------------------
Sub Makro1()
Dim mstAnfang As Date
Dim mstEnde As Date
mstAnfang = Date
mstEnde = DateAdd("d", 21, Anfang)
FilterEdit Name:="MST", TaskFilter:=True, Create:=True, OverwriteExisting:=True, FieldName:="Meilenstein", Test:="Gleich", Value:="Ja", ShowInMenu:=False, ShowSummaryTasks:=False
FilterEdit Name:="MST", TaskFilter:=True, FieldName:="", NewFieldName:="Anfang", Test:="Größer oder Gleich", Value:="mstAnfang", Operation:="Und", ShowSummaryTasks:=False
FilterEdit Name:="MST", TaskFilter:=True, FieldName:="", NewFieldName:="Anfang", Test:="Kleiner oder Gleich", Value:="mstEnde", Operation:="Und", ShowSummaryTasks:=False
FilterApply Name:="MST"
End Sub
---------------------------------------------------
Wieso werden die Werte in dieser Form nicht berücksichtigt?? |