Office: Autofilter anwenden und Ergebnis in neuer xlsx-Datei speichern

Guten Abend!

Ich komme bei der Lösung meines Problems leider nicht wirklich weiter ... manches hätte ich (in einer anderen Datei) selber geschafft, aber eben nicht alles. :-(

Was hätte ich gerne (siehe hochgeladene Datei):
* Nach Aufruf eines Makros soll nach allen Eintragungen der Spalte A (genauer: der Spalte 'Eintrag 1') gefiltert werden.
* Das jeweilige Ergebnis (also nur die jeweils sichtbaren Datensätze) soll in eine xlsx-Datei gespeichert werden, wobei der Dateiname 'aus dem Filter' kommen soll.

Für meine Beispiel-Datei sollten also vier Dateien "Montag.xlsx", "Dienstag.xlsx", "Mittwoch.xlsx" und "Sonntag.xlsx" erzeugt werden ... siehe hochgeladene pdf-Datei.

Ich wäre über eine Hilfestellung sehr dankbar. *Smilie
Michael

:)

 

Benutze Autofilter und Kopiere den sichtbarenb Bereich, Start, Bearbeiten, Suchen..., Gehe zu, Inhalte, sichtbare Zellen.
Excel hat auch einen Makrorecorder.


Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* , Forum*, Excel* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/...d.php?t=322895
änderrn.

Das ist nur meine Meinung zu dem Thema.

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Danke für die rasche Antwort.

Ich entschuldige mich dafür, dass die hochgeladene Datei einen nicht aussagekräftigen Namen hatte. Mir war nicht bewusst, dass ein solcher an dieser Stelle besser gewesen wäre.

Ich habe den Makrorekorder ausprobiert:
Wenn ich einfach nur den sichtbaren Bereich kopiere, dann gehen in der neuen Datei die Formatierungen der "Ausgangsdatei" verloren. Die Formatierungen wären aber sehr wohl wichtig.

Und was ich trotz Makrorekorders nicht zusammenbringe: Ich hätte gerne, dass das Makro automatisch nach allen Einträgen in der ersten Spalte filtert.
Der Makrorekorder zeichnet aber zB die Filterung nach Dienstag, die Filterung nach Montag, ... auf.

VBA habe ich leider nie gelernt, und für eine weiter Hilfestellung wäre ich sehr dankbar.

 

Du hast Inhalte einfügen benutze und nicht kopieren.

 

Nein, ich habe schon kopiert.
Aber: Die Ausgangsdaten sind als Tabelle formatiert, und das Ergebnis in der neuen Datei ist nicht mehr als Tabelle formatiert. Deshalb fehlen klarerweise Formatierungen.

 

das konnte ich nicht sehen, da ich mir Deine Datei nicht angesehen habne, siehe ersten Beitrag.
Formatiere die neue Tabelle als Tabelle.

 

hajo,
Micheal hat ausreichend Angaben geliefert, um in seinem Sinne antworten zu können. Er ist kein Hund, den man an der Leiner herumführen muss. Ein für Dich ausreichender Grund, nicht antworten zu müssen, interessiert hier niemanden. Du must fürs Nicht-Antworten keine Begründung angeben. Wenn Du aber antwortest, dann soll das schon lesenswert sein. Und weil Du das wieder einmal missachtest, bist Du hier raus.

Michael,

probier mal diesen Code:
Code:

habe Dir auch eine PN, abrufbar unter "Private Nachricht" geschickt.

LGB

 

hallo

habe fehler gefunden und hier ausgebessert

Code:

"A3" ist eventuell anzupassen.

ISt auch als Lösung für Zeilen bei bestimmtem Zellwert in andere Datei oder anderes Blatt kopieren geeignet

LGB

 

Liebe Barbara!

Vielen Dank für den Code ... der macht schon beinahe 100% von dem, was ich wollte.
Ich muss mir jetzt noch anschauen,
a) weshalb die neuen Dateien nicht im gleichen Verzeichnis, sondern eine Stufe höher gespeichert werden.
b) wie ich die "Daten rund um die Tabelle" in die neuen Datei bekomme.

ad a)
Das habe ich geschafft: Statt
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & a & " .xlsx"
habe ich
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & a & ".xlsx"
verwendet.

ad b)
Hier wird es wohl besser sein, eine leere Datei anzugeben, in die dann hineinkopiert werden soll. Statt
Workbooks.Add
habe ich
Workbooks.Open "vorlage.xlsx"
verwendet.

Aus meiner Sicht passt das ... Ich darf die "Daten rund um die Tabelle" nur oberhalb und nicht unterhalb haben, aber es klappt wenigstens. :-)

Danke für die Hilfe!