Datumszeitraum filtern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Einfügen_2003() ' Einfügen_2003 Makro ' Makro am 25.12.2010 von Silveradler aufgezeichnet Sheets("Jahr").Select Selection.AutoFilter Selection.AutoFilter Field:=9, Criteria1:="E" Cells.Select Selection.Copy Sheets("Monat").Select Range("A1").Select ActiveSheet.Paste Range("A1").Select Sheets("Jahr").Select Application.CutCopyMode = False Selection.AutoFilter Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=9, Criteria1:="A" Cells.Select Selection.Copy Sheets("MonatOut").Select Range("A1").Select ActiveSheet.Paste Range("A1").Select Sheets("Jahr").Select Application.CutCopyMode = False Selection.AutoFilter Range("A1").Select Sheets("Monat").Select Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=4, Criteria1:=">=01.11.2010", Operator:=xlAnd _ , Criteria2:="=11.11.2010", Operator:=xlAnd _ , Criteria2:="=21.11.2010", Operator:=xlAnd _ , Criteria2:="=01.11.2010", Operator:=xlAnd _ , Criteria2:="=11.11.2010", Operator:=xlAnd _ , Criteria2:="=21.11.2010", Operator:=xlAnd _ , Criteria2:="

Sub Einfügen_2003() Dim wks As Worksheet, Zei As Long, ZeiH As Long, Ber As Range Application.ScreenUpdating = False With Sheets("Jahr") Zei = .Cells(Rows.Count, 9).End(xlUp).Row For Each wks In ThisWorkbook.Worksheets If wks.Name Like "Monat*" Then wks.UsedRange.ClearContents ZeiH = Application.Match(wks.Name, Worksheets("Hilfe").Columns(1), 0) Set Ber = Worksheets("Hilfe").Cells(ZeiH, 2).Resize(2, 13) .Range("A1:M" & Zei).AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Ber, CopyToRange:=wks.Range("A1"), Unique:=False End If Next wks End With Application.ScreenUpdating = True End Sub

Hallo Oliver,
die ausgeblendeten Spalten habe ich natürlich eingeblendet, wollte ja wissen warum die Mappe so groß ist.
Ich gab dann alle Bytes in "Jahr" gezahlt, ca. 2,2 MB. Alle Blätter mit Monat im Namen waren leer.
Trotzdem hatte die mappe über 7 MB.
Ich habe dann das gemacht was ich dir riet und die Daten des Blattes "Jahr" in eine neue leere Mappe mit Strg+C/Strg+V kopiert. Die anderen Blätter angelegt, die makros rübergeholt.
Schon war ich bei 4,1 MB...
WEnn ich alles richtig verstanden habe willst du im
Blatt Monat alle daten aus Jahr" Hben, die ein E in Spalte I
Blatt MonatOut alle daten aus Jahr" Hben, die A in Spalte I
Blatt Monat1 alle daten aus Jahr" Hben, die im Zeitraum 1.1.10-10.1.10 liegen und ein E in Spalte I
Blatt Monat2 alle daten aus Jahr" Hben, die im Zeitraum 11.1.10-20.1.10 liegen und ein E in Spalte I
Blatt Monat3 alle daten aus Jahr" Hben, die im Zeitraum 21.1.10-31.1.10 liegen und ein E in Spalte I
Blatt MonatOut_10 alle daten aus Jahr" Hben, die im Zeitraum 1.1.10-10.1.10 liegen und ein A in Spalte I
Blatt MonatOut_20 alle daten aus Jahr" Hben, die im Zeitraum 11.1.10-20.1.10 liegen und ein A in Spalte I
Blatt MonatOut_30 alle daten aus Jahr" Hben, die im Zeitraum 21.1.10-31.1.10 liegen und ein A in Spalte I
Das macht doch mein Makro Einfügen_2003 bzw. Einfügen_2003a
Dazu ist das Hilfsblatt "hilfe" nötig.
Mit Loesch kannste beim Testen immer alle Blätter mit "Monat" im Namen leeren
Alle Prozeduren im Modul "Modul1"
Hier die funktionierende Mappe:
http://www.file-upload.net/download-3084410/kwdatumfilternForum_Statistik.25.12.2010-.xls.html
Gruß
Reinhard

Hallo Oliver,
::::Genau so, einfach super.
schön daß es klappt *Schweißabwisch* :-)
::::MonatOut_30 wird zwar nicht ausgefüllt, aber das wird ja noch zu regeln sein.
Da muß ich schauen warum.
::::Ich nehme an, Dir ist klar, dass ich überhaupt nichts kapiere. Hast Du für mich einen Tipp, wie ich so ::::etwas, erlernen kann. Oder hast Du auch noch Lust mir das zu erklären.
Da ist an sich nix aufwendiges im Code.
Zunächst mal, kennst du "Spezialfilter" in Excel gut? Wenn nicht übe das.
Wichtiger Tipp, wenn du "Jahr" mit Spezialfilertn nach "Monat" filtern willst, mußt du den Spezialfilter in "Monat" aufrufen. Dort wählst du aus an anderer Stelle filtern o.ä.
Dann siehst du drei Eingabefelder.
Im obersten muß der Bereich in "Jahr" rein, den du filtern willsst, im anderen Feld der Kriterienberich, im dritten langt die Angabe einer einzelnen Zelle in "Monat" damit Excel weiß wohin sie das ERgebnis schreiben soll.
In meinem Code ist der Kriterienbereih im Blatt Hilfe.
Der Kriterienbereich muß die gleiche Überschriftszeile wie in "Jahr" haben.
Um jetzt alles aus "Jahr" zu filtern was in I ein "E" hat, brauchst du nur im Kriterienbereich in der zweiten Zeile bei I ein E zu schreiben.
Nun willst du auch nach Datum filtern, genau gesehen nach zwei datümern, größer als x, kleiner als y.
Schau genau in die Hilfetabelle, da erkennst du warum da die Datumsspalte doppelt ist.
Nun hast du aber verschiedene Blätter, die alle einen verschiedenen Kriterienbereich brauchen.
"Zeih" ermittelt wo der Blattname in "Hilfe" steht, bestimmt daraufhin den gültigen Kriterienbereich.
Übe halt mal Spezialfilter, zeichne dir dabei Makros auf.
Diese Codes wirste in meinem Code wiedererkennen, wenn auch durch die For-Schleife dynamisch gehalten.
::::Was mache ich denn, wenn ich einen anderen Monat filtern möchte ?
::::Ich nehme an man müsste 12 verschiedene Hilfeblätter machen.
Jain. Grundsätzlich, wenn man "Monat" mit "Januar" ersetzt bräuchtest du 8*12 Blaätter.
D.h. in "jahr" stehen alle Daten.
In "Januar" dann alle Daten aus "Jahr" die "E" in I haben und im Janauar liegen.
Usw. für alle Bretter.
Da kommt man schon mit einer Hilfetabelle aus oder sogar gar keiner.
::::Wie kann ich mein Wort einhalten ? (zweiter Beitrag)
Wenn ich dir helfen soll, deine Codes, Mappe zu verbessern, gerne:

Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread