Arbeitsmappe filtern und kopieren
27.12.2003 13:15:49
sigi
wie kann ich eine Arbeitsmappe nach einem bestimmten Datum, welches ich in eine Zelle eingebe und die gefilterten Daten Zellenweise in ein bestehendes Blatt der Arbeitsmappe nach Anordnung der Tabellenblätter eintragen lassen.
Option Explicit
Sub AlleFiltern()
Dim iWks As Integer
For iWks = 2 To 9
Worksheets(iWks).Range("A1").AutoFilter _
Field:=1, _
Criteria1:=Range("H1").Value, _
Operator:=xlAnd
Next iWks
Call Kopieren
End Sub
Sub Kopieren()
Dim iCounter As Integer, iRow As Integer
Application.ScreenUpdating = False
Sheets("Übersicht").Select
iRow = 1
For iCounter = 2 To 4
Worksheets(iCounter).Range("A1").CurrentRegion.Copy _
Cells(iRow, 1)
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Next iCounter
Application.ScreenUpdating = True
End Sub
Danke für die Hilfe!
Da ich mit Makros fasst nicht am Hut habe wäre eine Musterarbeitsmappe von großer Hilfe für mich.
Gruß
Sigi