Office: Filterergebnisse in neue Mappe kopieren

Hallo zusammen,
nachdem mein Beitrag von gestern alles andere als aussagekräftig war, dachte ich, ich versuch es noch einmal mit einer neuen Idee.
Meine Aufgabe ist es, ein Makro zu erstellen, welches eine Tabelle mit sehr vielen Zeilen und Spalten nach allen Namen einzelnen filtert, die Filterergebnisse kopiert und in eine neue Arbeitsmappe einfügt.
Ich bin mittlerweile soweit gekommen, dass manuell ausgewählte Filterergebnisse durch ein Makro ausgewählt, kopiert und in eine neue Arbeitsmappe eingefügt werden.
Aber: Wie kann ich Excel dazu bringen, sämtliche Namen, welche durch den Filter gefiltert werden können zu durchlaufen?
Mein Ansatz, in einer zweiten Tabelle die Namen als Kriterien anzusehen und anhand dieser den Filter zu bedienen schlug fehl (Laufzeitfehler 1004),
für jeden Ratschlag wäre ich sehr dankbar!
Hier mein -leider nicht funktionstüchtiger- VBA Code:

Sub Filtern()
Selection.AutoFilter
For Z = 1 To 100
Kriterium = Worksheets("Tabelle2").Cells(Z, 1)
If ActiveSheet.AutoFilterMode Then
With ActiveSheet.AutoFilter.Range
.Offset(1, 0).Resize(.Rows.Count - 1) _
.SpecialCells(xlVisible).Select
End With
Else
MsgBox "Der AutoFilter ist nicht aktiv."
End If
Selection.AutoFilter Field:=8, Criteria1:=Kriterium, Operator:= _
xlAnd
Selection.Copy
Workbooks.Add
Sheets("Tabelle1").Select
Range("A1").Select
Selection.Paste
Next
End Sub

:)

 

Manchmal ist weniger mehr.
Beschreibe doch einfach einmal mit ganz simplen Worten, was du vorhast.
Beispiel:
Ich habe eine Tabelle, die möglicherweise einen aktiven AutoFilter hat.
Das Makro soll jetzt prüfen, ob der Filter aktiv ist. Wenn nicht, soller eingeschaltet werden.
Dann sollen ... ??? Alle gefilterten ??? nach ??? kopiert werden ...
??? -> Hier bin ich mir nicht sicher, was du willst.

Und wie so oft ind immer und immer wieder: Eine Mustertabelle mit Wunschergebnis hilft beim helfen!

 

Hallo Günther,
Vielen Dank für deine Antwort.
Nochmal deutlich: Ich will ein Makro schreiben, welches einen Autofilter einer Tabelle nach Namen sortieren lässt. Die Ergebnisse sollen dann kopiert und in eine neue Mappe eingefügt werden.
Damit der Autofilter weiß, nach welchen Namen er suchen soll, habe ich in Tabelle 2 eine beispielhafte Namensliste mit 2 Namen erstell. Aber das Makro kann diese Namen nicht in die benutzerdefinierte Suchfunktion des Filters einfügen.
Grund:
ThisWorkbook.Worksheets(2).Cells(i, 1) = Kriterium
löscht die beiden Namenseintrage aus Tabelle 2 und setzt dafür 1 und 2 ein.

Nach einem ganzen Tag arbeit, bin ich jetzt zu dieser Syntax gekommen:

Sub splittenliste()
Dim i As Integer
Dim Kriterium As String
For i = 1 To 2
Sheets("Tabelle2").Select
ThisWorkbook.Worksheets(2).Cells(i, 1) = Kriterium
ActiveCell.FormulaR1C1 = i
Range("A1").Select
Sheets("Tabelle1").Select
ActiveSheet.Range("$A$1:$AG$12342").AutoFilter Field:=8, Criteria1:= _
Kriterium, Operator:=xlAnd
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.WindowState = xlMinimized
Windows("Abwertungen_201312.xlsx").Activate
Next i
End Sub

Vielen Dank für die Hilfe! Bin leider noch sehr neu auf dem Gebiet!
Ich werde heute Abend gleich noch eine Beispieldatei hochladen!

 

Hier die Mappe mit aufgezeichnetem Makro, wie ich es mir vorstellen würde. Dabei habe ich manuell jeden Namen im Filter eingegeben und aufgezeichnet. Somit öffnet sich zu jeder Person eine Mappe.

Falls mir irgendwer weiterhelfen kann, vielen Dank dafür!

Grüße,
Christian

 

Hallo Christian,

sieh dir mal meinen Listenseparator an. Damit geht das.

 

Hallo Klaus-Dieter,

vielen vielen Dank für deine Hilfe!
Das ist ja wirklich wahnsinn was du da programmiert hast!
Problem gelöst, vielen Dank!!

mit freundlichen Grüßen,
Christian

 

Hallo Klaus Dieter,

ist es denn möglich, den Listenseparator so anzupassen, dass er bei der Separierung die Formatierung der Ursprungsliste übernimmt?
Also, dass Hintergrundfarben und Gültigkeitsbereiche in den neuen Tabellen mit übernommen werden?

über eine Antwort würde ich mich sehr freuen!
Grüße,
Christian

 

Hallo Christian,

grundsätzlich wäre das möglich, geht aber sehr zu Lasten der Laufzeit. Deshalb hatte ich darauf verzichtet.

 

Vielen Dank für deine Antwort!

Kannst du mir sagen wie ich den Code ändern müsste, damit die Formatierung übernommen wird?
Kann leider nicht darauf verzichten!

mit freundlichen Grüßen,
Christian

 

Hallo Christian,

so ohne weiteres geht das nicht zu ändern. In dieser Anwendung habe ich mit Arrays gearbeitet, weil das sehr schnell ist. Auf diese Weise kann man nur Daten übertragen.
Wenn Zellformate übertragen werden sollen, muß man jede einzelne Zelle nach einem eventuellen Format abfragen. Das verlängert die Laufzeit enorm.
Um welche Formate geht es denn?

 

Hallo Klaus-Dieter,

ich habe eine Mustertabelle mit allen vorkommenden Formaten beigefügt.
Vielleicht kannst du mir ja einen Tipp geben wie ich ein Programm umsetzen könnte, welches die Tabelle nach einer Eigenschaft filtert, für jede Eigenschaft eine extra Mappe erstellt und dabei auch noch die Formate übernimmt?

Vielen Dank für deine Bemühungen,
mit freundlichen Grüßen,
Christian

 

Hallo Christian,

wonach separierst du? Mehr Formate sind das nicht? Das ist immer gleich?

 

Vielen Dank für die Antwort Klaus - Dieter,
im Grunde sind es nicht mehr Formate, ich separiere nach Namen.
Ich hab nochmal eine Mappe beigefügt welche dem Aufbau der Originalmappen entspricht, nur die Farben sind etwas anders. der Aufbau ist dabei immer der selbe!
Inzwischen hab ich mir ein Programm zusammengebastelt, welches so läuft wie du es beschrieben hast:
Es kopiert jede einzelne Zelle extra. Und du hattest recht: Es dauert ewig bis die Mappen erstellt werden.
Außerdem müssten Tabellennamen und jedesmal neu angepasst werden.
Die Funktionsweise wär jedoch genau richtig.
Ich hab das Makro der beigefügten Mappe angehängt, vll wäre es einfacher dieses Makro zu optimieren?
Was meinst du?

Vielen Dank für deine Unterstützung!
mit freundlichen Grüßen,
Christian