AW: Datumszeitraum filtern
25.12.2010 18:40:06
Oliver
Hallo Reinhard
Vielen Dank für Deine schnelle Antwort.
Zu Deiner dritten Zeile *hihi*
Zwei Möglichkeiten : Du hast mich gegooglet und bist auf meiner Webbi gelandet.
Oder Du gehörst zu Denjenigen, die mir seelischen und finanziellen Schaden zugefügt haben. Mein lebenslanger Patriotismus und alles woran ich geglaubt habe wurde zerstört. OK, alles BLA, BLA .
Solltest Du die zweite Möglichkeit sein, verzichte ich auf weitere Hilfe.
Sollte das nicht der Fall sein, wäre ich froh und habe die Aufzeichnung eingefügt.
Deine Hilfe muss auch nicht kostenlos sein !
Excel 2003 klappt den Filter auf null Daten hoch. Schaut man im Filter nach, steht das richtige in der benutzerdefinierten Box. Es fehlt das OK .
Hab noch mal Dank für deine Mühe !
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:="