Benutzerdefinierten Datumsfilter in Makro einfügen

[SBieteh]

Hallo liebe Excel-Community,

ich habe gerade versucht ein Marko zu schreiben, scheitere jetzt allerdings an einem bestimmten Datumsfilter.

Ich möchte alle Zeilen anzeigen lassen, deren Datum NICHT der vorherigen Woche entsprechen. D.h. alle Zellen wo das Datum früher als letzte Woche war, aber auch alle Daten die später als letzte Woche waren. Die Daten sollen dann anschließend gelöscht werden (das is kein Problem). Mir geht es einzig und allein darum, wie ich den Datumsfilter eingeben muss. Im konkreten Beispiel (Datei im Anhang) soll also alles außer KW4 und leere Zeilen gefilter und gelöscht werden.

Ich brauch nicht unbedingt Hilfe beim Makro, aber eher Hilfe wie ich so einen benutzerdefinierten Filter bauen kann. 

Vielen Dank!

[WillWissen]

Hi,

das mit dem Anhang hat nicht geklappt. Ich nehme an, du hast vergessen, rechts den Button "Attachment hinzufügen" anzuklicken.

[SBieteh]

Danke für den Hinweis

[WillWissen]

Hi,

du hast drei Spalten mit Zeiten. Welche soll denn gelten? Im Beispiel habe ich die Spalte "eröffnet" genommen und in einer Hilfsspalte die KW anzeigen lassen. Hier filterst du alles außer KW 4/2019. Du kannst dir die Filter über Daten/Filtern setzen lassen oder die wandelst deine Liste in eine intelligente Tabelle um.

Arbeitsblatt mit dem Namen 'Sheet 1'
	A	B	C	D
1	Eröffnet	Anfang	Ende	KW
2	21.03.2018 16:25:20	11.12.2018 14:00:00	11.12.2018 11:00:00	12 / 2018
3	13.09.2018 10:38:15	14.12.2018 20:02:00	14.12.2018 08:00:00	37 / 2018
4	13.09.2018 13:49:09	03.12.2018 22:00:00	03.12.2018 23:59:00	37 / 2018
5	28.09.2018 17:11:36	29.11.2018 12:00:00	30.12.2018 00:00:00	39 / 2018
6	11.10.2018 08:26:53	07.12.2018 10:00:00	07.12.2018 00:00:00	41 / 2018
7	16.10.2018 10:17:55	22.11.2018 23:00:00	30.11.2018 00:00:00	42 / 2018
8	19.10.2018 10:30:47		27.02.2019 10:00:00	42 / 2018

Zelle	Formel
D2	=ISOKALENDERWOCHE(A2)&" / "&JAHR(A2)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[SBieteh]

Hi,

in dem Fall war es egal welche Spalte den Filter hat.

Das Problem ist, ich muss wöchentlich einen Report erzeugen und mir dabei lediglich die letzte Woche anschauen. Allerdings muss ich beim  Erzeugen des Reports einen größeren Zeitraum eingeben, damit alle Variablen abgedeckt sind.

Ich zieh mir also jeden Montag einen Report, gebe einen Zeitraum von vier Monaten ein und setze dann verschiedene Filter. Dabei muss ich u.a. alle Daten löschen, die nicht der gesuchten Woche entsprechen. Und hier weiß ich leider nicht wie ich den Filter setzen soll. Dein Vorschlag mit der Hilfsspalte und der jeweiligen Kalenderwoche funktioniert nicht, da sich die Kalenderwoche ja jedes Mal ändert oder versteh ich da etwas falsch?

Danke für Deine Hilfe!

[schauan]

Hallöchen,

nimm beim Datumsfilter
ist vor dem --> Datum des Montag der gewünschten KW
oder
ist nach dem --> Datum des Sonntag der gewünschten KW


Du kannst den Code dafür aufzeichnen, musst aber das Datum noch umwandeln. Der aufgezeichnete Code funktioniert leider nicht 100%ig mit dem Datumsformat.

aufgezeichnet z.B.
ActiveSheet.Range("$A$1:$A$22").AutoFilter Field:=1, Criteria1:= _
"<10.01.2019", Operator:=xlOr, Criteria2:=">20.01.2019"

geändert:

Code:

Sub Makro1()
'
' Makro1 Makro
'
Dim Datum1 As Date, Datum2 As Date
Datum1 = "10.01.2019"
Datum2 = "20.01.2019"
'
    ActiveSheet.Range("$A$1:$A$22").AutoFilter Field:=1, Criteria1:= _
        "<" & CDbl(Datum1), Operator:=xlOr, Criteria2:=">" & CDbl(Datum2)
End Sub

Du musst dann natürlich noch die zur gewünschten KW passenden Daten berechnen, ich habe hier fest zwei Tage eingetragen.