Office: Gefilterte Daten autom. in neues Tabellenblatt

Hallo liebe Excelgemeinde,

habe ein Problem. Und zwar habe ich eine grosse Datenmenge (von ca. 3.500 Zeilen und von Spalte A bis F). Diese Daten sollen nach bestimmten Kriterien gefiltert werden und diese gefilterte Daten in ein eigenes Tabellenblatt kopiert werden. z.B. Alle Datensätze (ein Datensatz entspricht einer Zeile) die mit PLZ 60... beginnen.
Kann ich das irgendwie automatisieren?
Und wenn ja, auch mit zwei oder mehreren Filtermerkmalen (z.B. PLZ 60... und Umsatz >2.500)?

Vielen, vielen Dank für Eure Antwort bereits im voraus.

 

Hallo!

Hast du mal in das Tutorial: Spezialfilter geschaut?
Und auch hier wird sowas behandelt.

 

Hallo

danke für den Hinweis. Es hat mir teilweise weitergeholfen. Inzwischen habe ich anderweitig ein Makro gefunden und angepasst. Ich würde es gerne noch etwas ändern, weiß aber nicht wie (stehe noch am Beginn meiner Makro-Ausbildung... sozusagen).

Wie kann ich das Marko gestalten das die Daten in eine bereits vorhandene Mappe kopiert werden (also ein neues Tabellenblatt mit den Daten eingefügt wird)? Und kann das Tabellenblatt direkt mit dem gefilterten Wert (z.B. PLZ 10368) benannt werden?

Sub test()
Dim Blatt As Worksheet, Such$
Set Blatt = ActiveSheet
Such = InputBox("Welche PLZ?")
With Blatt
If Not .AutoFilterMode = True Then .Range("A1").AutoFilter
.Range("A1").AutoFilter Field:=1 Criteria1:=Such
.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
.AutoFilterMode = False
End With
Workbooks.Add
Range("A1").PasteSpecial xlPasteAll
ActiveWorkbook.SaveAs Filename:="C:\Eigene Dateien\2008\" & Such, FileFormat:=xlNormal
Application.CutCopyMode = False
End Sub

Nur interessehalber... wie kann ich bei der Eingabe in die Inputbox z.B. alle die mit der PLZ 1 anfangen rausfiltern?

Vielen Dank bereits im voraus.

 

Hallo!

Alles ungetestet:
Um alle PLZs mit 1 zu filtern, fällt mir momentan nix besseres ein, als "<20000" in die InputBox einzugeben.

Die bereits vorhandene Mappe musst du öffnen,
Workbooks.Open("C:\Excel\ziel.xls")
hier dann ein Blatt einfügen,
Sheets.Add
und diesem den Namen zuweisen.
ActiveSheet.Name = Such


PS: Ich würde es trotzdem mit dem Spaezialfilter machen, da dieser einfach flexibler ist, aber das ist deine Sache...

 

Danke Schatzi für die schnelle Rückmeldung,

werde ich nachher gleich mal ausprobieren.
Werde Deinen Tip mal aufnehmen und mir den "Spezialfilter" mal genau zu Gemüte führen.

Danke nochmal uns ein schönes WE.