Benutzerdefinerter (Datums) Filter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
ich würde hier kombiniert arbeiten.
schreibe in die Spalte A folgende Formel (Formel für A2) und ziehe sie soweit nach unten wie benötigt:


=WENN(UND(ISTZAHL(C3);C3>1);WENN(ODER(KALENDERWOCHE(C3;2)=KALENDERWOCHE(HEUTE();2);KALENDERWOCHE(C3; 2)=KALENDERWOCHE(HEUTE()+7;2));"aktuell";"---");A1)

die Formel markiert dir die aktuelle und die Folgewoche mit "aktuell" und alle anderen Wochen mit "---" (kannst du natürlich ändern)
wenn der Autofilter aktiv ist, müsstest du im Prinzip nur auf den Button "erneut anwenden" drücken oder als Makro den Befehl


ActiveSheet.AutoFilter.ApplyFilter

anwenden.
Vollautomatisch würde ich einfach folgenden Code im Modul der Mappe ausführen lassen, damit der Filter neu eingerichtet wird (die Spalte A mit meiner Formel muss vorhanden sein)


Private Sub Workbook_Open()
Application.Goto Sheets(CStr(Year(Date))).Range("A1")
ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="aktuell"
End Sub

Gruß Daniel

Hi Mike,
hier, eine VBA-Lösung
https://www.herber.de/bbs/user/154073.xlsm
Du wirst direkt nach Öffnen der Datei (und Aktivieren der Makros!) erst mal aufgefordert, ein Datum einzugeben; Standardvorgabe ist das jeweils aktuelle Datum.
Ja, ich hab schon verstanden - das Ganze soll automatisch - ohne extra Datumseingabe geschehen.
Das mit der Eingabe hab ich auch nur eingebaut, damit du erst mal ein wenig testen kannst.
Öffne die Datei also mehrmals, gib unterschiedliche Datumswerte ein (die sich aber innerhalb von KW 25 bis KW 34 befinden!), damit du siehst, wie mein Code funktioniert.
Anhand des Datums wird im Makro die zugehörige KW nach DIN errechnet.
Dann wird in deiner Tabelle die Zeile gesucht, in der die KW steht.
Jetzt werden alle Zeilen, außer gefundene KW + nächste KW, ausgeblendet.
So, wenn du jetzt alles verstanden hast, dann lösch im WorkBook-Open-Ereignis diese Zeile...


sbCalWeekPlus1 CDate(InputBox("Bitte Datum eingeben", "Datum", Date))

...und aktiviere die darunter stehende Zeile...


sbCalWeekPlus1 Date

...entferne also nur das erste Zeichen, das '
Wenn du jetzt die Datei speicherst, schließt + wieder öffnest, wird das Makro immer mit dem aktuellen Datum gestartet, und du wirst nicht mehr zur Datumseingabe aufgefordert.
Hilfts?
Ciao
Thorsten

Option Explicit Sub sbCalWeekPlus1(ByVal datum As Date) Dim liKW_DIN As Integer, lloRow As Long Dim lloStart As Long, lloEnd As Long liKW_DIN = DatePart("ww", datum, vbMonday, vbFirstFourDays) Rows("2:" & Cells(3, 2).CurrentRegion.Rows.Count + 1).EntireRow.Hidden = False For lloRow = 2 To Cells(Rows.Count, 3).End(xlUp).Row Step 11 If Range("C" & lloRow).Value = liKW_DIN Then lloStart = lloRow - 1 lloEnd = lloRow + 22 Rows("2:" & lloStart).EntireRow.Hidden = True If lloEnd

Beliebteste Forumthreads (12 Monate)

Benutzerdefinerter (Datums) Filter

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Benutzerdefinerter (Datums) Filter

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread