Datum Filtern

Hi Ihr lieben,
ich habe eine Excel-Tabelle mit mehr wie 50.000 Zeilen. In diesen Zeilen werden verschiedenste Daten (Mehrzahl von Datum) eingetragen.
Nun benötige ich ein Makro, welches mir aus den über 50.000 Zeilen das gestrige Datum herausfiltert. Warum ich nicht die normale Filter-Funktion nutze? Dauert zu lange und ich muss insgesamt 10 Filter setzten (diese Funktionieren - bis auf das Datum).
Hier mein aktuelles Makro, was funktioniert (möchte aber nicht jeden Tag das Makro anpassen müssen):
ActiveSheet.Range("A1:A50000").AutoFilter Field:=1, Criteria1:=Array( _
"12.02.2020"), Operator:=xlFilterValues
Makro welches nicht funktioniert:
ActiveSheet.Range("A1:A50000").AutoFilter Field:=1, Criteria1:=Array( _
"date.now()-1"), Operator:=xlFilterValues
Wo ist der Fehler?
Danke
Dominic

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Heute() ' Heute Makro ActiveSheet.Unprotect "xxxxx" ActiveSheet.Range("A1:A50000").AutoFilter Field:=1, Criteria1:=Array( _ Format(Date - 1, "DD.MM.YYYY")), Operator:=xlFilterValues ActiveSheet.Range("$A$1:$R$45631").AutoFilter Field:=17, Criteria1:=Array( _ "xxx", "xxx", "xxx", "xxx", "xxx", _ "xxx", "xxx", "xxx", "xxx", _ "xxx", "xxx", "="), Operator:=xlFilterValues ActiveSheet.Protect "xxx" End Sub

Hallo Dominic,
im Freigegebenen Arbeitsmappen (Frühere Freigabe-Methode) sind verschiedenen Features nicht unterstützt. Unter Hilfefunktion findet man hierzu:

	A	B
2	Beachten Sie, dass freigegebene Arbeitsmappen ein älteres Verfahren für die Freigabe sind. Zahlreiche Elemente und Aktionen werden daher nicht unterstützt, wenn diese Methode verwendet wird. In der folgenden Tabelle wird nur ein Teil der nicht unterstützten Features aufgeführt.
3	Nicht unterstützte Elemente:	Nicht unterstützter Aktionen:
4	Erstellen oder Einfügen von Tabellen	Einfügen oder Löschen von Zellenblöcken
5	Hinzufügen oder Ändern bedingter Formatierungen	Löschen von Arbeitsblättern
6	Hinzufügen oder Ändern der Datenüberprüfung	Verbinden von Zellen oder Aufteilen verbundener Zellen
7	Erstellen oder Ändern von Diagrammen oder PivotChart-Berichten	Sortieren oder Filtern nach Format
8	Einfügen oder Ändern von Bildern oder anderen Objekten	Verwenden von Zeichentools
9	Einfügen oder Ändern von Links	Zuweisen, Ändern oder Entfernen von Kennwörtern
10	Erstellen, Ändern oder Anzeigen von Szenarien	Schützen oder Aufheben des Schutzes von Arbeitsblättern oder der Arbeitsmappe
11	Einfügen von automatisch erstellten Teilergebnissen	Gruppieren oder Gliedern von Daten
12	Erstellen von Datentabellen	Schreiben, Aufzeichnen, Ändern, Anzeigen oder Zuweisen von Makros
13	Erstellen oder Ändern von PivotTable-Berichten	Ändern oder Löschen von Matrixformeln
14	Erstellen oder Anwenden von Datenschnitten	Hinzufügen, Umbenennen oder Löschen von XML-Zuordnungen
15	Erstellen oder Ändern von Sparklines	Zuordnen von Zellen zu XML-Elementen
16	Hinzufügen oder Ändern von Dialogblättern aus Microsoft Excel 4	Verwenden des Aufgabenbereichs "XML-Quelle", der XML-Symbolleiste oder von XML-Befehlen im Menü "Daten"
17		Hinzufügen neuer Daten in einem Datenformular
18	Hinzufügen von Gewinde Kommentaren	Bearbeiten oder Löschen von Gewinde Kommentaren

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Dein Problem ist hier der Blattschutz.
Du kannst die Datei aber so schützen, dass ein aktiver Autofilter weiterhin bedient werden kann.
Allerdings weiss ich nicht ob man dann den Filter per Makro ändern kann.
Aber sind es nur 3 bis 5 Klicks im Dropdown--&gtDatumsfilter--%gt "gestern" oder "ist gleich" und im Kalender den Freitag wählen.
LG
Franz

Sub Makro_mit_Freigabe_ausführen() ActiveWorkbook.ExclusiveAccess 'Mein Makro If Not ActiveWorkbook.MultiUserEditing Then ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, _ AccessMode:=xlShared End If End Sub

Sub Heute() ' Heute Makro ActiveWorkbook.ExclusiveAccess ActiveSheet.Unprotect "xxx" ActiveSheet.Range("A1:A50000").AutoFilter Field:=1, Criteria1:=Array( _ Format(Date - IIf(Weekday(Date, 2) = 1, 3, 1), "DD.MM.YYYY")), _ Operator:=xlFilterValues ActiveSheet.Range("$A$1:$R$45631").AutoFilter Field:=17, Criteria1:=Array( _ "xxx", "xxx", "xxx", "xxx", "xxx", _ "xxx", "xxx", "xxx", "xxx", _ "xxx", "xxx", "="), Operator:=xlFilterValues ActiveSheet.Protect "xxx", AllowFiltering:=True If Not ActiveWorkbook.MultiUserEditing Then ActiveSheet.SaveAs Filename:=xxx, _ AccessMode:=xlShared End If End Sub

Sub FilternDatum_Filtervalues() ActiveSheet.Range("A1:A50000").AutoFilter Field:=1, Criteria1:=Array( _ Format(Date - 1, "DD.MM.YYYY")), Operator:=xlFilterValues End Sub 'Alternativ Sub FilternDatum() ActiveSheet.Range("A1:A50000").AutoFilter Field:=1, _ Criteria1:=Format(Date - 1, "DD.MM.YYYY"), Operator:=xlAnd End Sub

Hinweis: Bei Verwendung von AutoFilter mit Datumsangaben sollte das Format mit den englischen Datumstrennzeichen ("/") und nicht mit den lokalen Einstellungen (".") übereinstimmen. Ein gültiges Datum wäre "2/2/2007", während "2.2.2007" ungültig ist.

Beliebteste Forumthreads (12 Monate)

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread