Office: (Office 2010) Tabelle in einer Datei auf mehrere Dateien aufteilen per Makro

Hallo zusammen,

ich habe folgende Frage:

ich habe eine Tabelle mit Standorten und Kostenstellen aus SAP in einer großen Tabelle. Ich würde jetzt gerne einzelne Dateien erzeugen mit den Daten für einen bestimmten Standort und eine Kostenstelle. Die Dateien sollen die Bezeichnungen "Standort_Kostenstelle_Tagesdatum.xlsx" haben.

Jetzt bin mit meinen spärlichen VBA-Kenntnissen leider ziemlich überfordert, aber ich halte das für keine so exotische Sache... daher die Frage: hat jemand zufällig einen passenden Code, den er mir zur Verfügung stellen könnte? Wäre super ;-)

Viele Grüße
Fargol

:)

 

Guten Morgen,

ein passender Code könnte erstellt werden, wenn klar wäre wie deine Daten aufgebaut sind. Eine DEMO-Mappe von Dir wäre da von Vorteil.

Damit ist jetzt nicht das Original gemeint, sondern einfach eine Mappe mit Dummydaten die deinem Mappenaufbau exakt entsprechen.

 

Hallo Chris,

danke für die Rückmeldung! Das wäre vermutlich hilfreich, das stimmt natürlich.

Ich habe die Tabellenstruktur hochgeladen und die beiden Spalten gefüllt, nach denen neue Dateien erstellt werden sollen.

Danke schon mal für die weiteren Tipps.

Viele Grüße
Fargol

 

Hi,

Kostenstelle? oder Kostenstellenverantwortlichen?
In der Datei sind keine Kostenstellen vorhanden.

Könntest du bitte auch ein gewünschtes Ergebnis darstellen wie es dann in der neuen Datei aussehen sollte.

 

Hallo,

im konkreten Beispiel meine ich die KST-Verantwortung.

Es soll für jedes Päckchen, in dem die beiden Spalten die gleiche Wertekombination enthalten, eine neue Datei erzeugt werden (Beispiele habe ich in die neue angehängte Datei gepackt).

Viele Grüße
Fargol

 

Hi,

na dann hoffe ich mal das der Aufbau der Originalmappe gleich ist *wink.gif*

Anbei die Datei, mit zwei Schaltflächen -> zuerst aufteilen -> Tabellen können noch auf etwaige Fehler geprüft werden . Danach abspeichern-> es wird nach dem Speicherort gefragt, es kann auch ein neuer Ordner erstellt werden und die Tabellen werden als eigene Dateien mit dem Namen und Datum abgespeichert.

 

Hallo Chris,

ich habe dein Werk getestet und bin begeistert! So sollte es sein, perfekt! Vielen Dank!!

Eine Verständnisfrage habe ich noch: muss ich auf jeden Fall vor dem speichern in der Datei aufteilen lassen? Ich stelle mir das bei meiner Datenmenge nämlich evtl. schwierig vor irgendwann, da dann einige Hundert bis Tausend Laschen in der einen Excel-Tabelle erzeugt werden müssten ;-)

Viele Grüße
Fargol

 

Hi,

einige tausend..., ^^ dies würde ich dann VOR der Mittagspause starten.
Aber es wäre fast egal ob zuvor die Blätter erstellt werden und dann abgespeichert werden oder gleich alles in EINEM erzeugt wird.

Wenn es wirklich so viel Daten sind müsste der Code ggf. noch umgebaut werden, im Moment läuft der Code nicht gerade im "Speichersparmodus".
*Smilie

 

Hehe, ok *tongue.gif*

Na ja, einige Tausend wohl auch eher nicht, aber einige Hundert bis Eintausend könnten es schon werden.

Ich werde es einfach mal ausprobieren und dann berichten!

Viele Grüße
Fargol

 

Hmm, es gibt wohl noch ein Problem:

Da beim Standort teilweise auch sehr lange Bezeichnungen vorhanden sind, meckert Excel beim Anlegen der Laschen. Vielleicht sollte man den Schritt dann direkt überspringen und mit einem Klick direkt die Dateien anlegen lassen? Prüfen kann ich da leider sowieso nicht so viel, da es dafür doch zu viele Einträge sind.


Noch eine Frage: das hatte ich zugegebenermaßen bisher nicht erwähnt *biggrin.gif* , aber kann man in die neuen Dateien auch das Seitenlayout, Druckeinstellungen und den ganzen Kram mitnehmen?

Viele Grüße
Fargol

Edit: ich habe die Einträge testweise gekürzt, sodass es passen müsste. Jetzt kommt folgender Fehler:
"Laufzeitfehler '1004':
Die Delete-Methode des Range-Objektes konnte nicht ausgeführt werden."

Bin leider ratlos =/

 

Hi,

hmm, verbundene Zellen in der Tabelle enthalten?

Druckeinstellungen brauchst du nur auf der Originaltabelle durchführen die gelten dann auch für alle anderen Blätter.

Wenn Du noch eine Demo hochladen kannst wo Probleme auftreten, kann ich noch mal drüber schauen und gleich alles in einem erledigen.

 

Denkfrage: Warum vervielfältigt man Daten über neue Dateien oder Sheets, wo man doch einfach die Ursprungstabelle gezielt filtern könnte?
Für "Seitenlayout, Druckeinstellungen und den ganzen Kram" wäre das auch ganz praktisch.

 

Nein, keine verbundenen Zellen, soweit ich weiß...

Ich habe eine neue Datei angehängt, jetzt auch mit mehr Zeilen drin. Die Länge der Einträge entspricht dem echten Leben *wink.gif*

Musste die Datei packen, weil sie sonst zu groß war, hoffe das ist kein Problem.


@ebs17: Das würde ich gerne so machen, allerdings ist das eine immense Arbeit. Wie ich weiter oben schon schrieb, kommen da einige Hundert bis Tausend einzelne Dateien bei rum. Ich kann aber nicht alles in einer Datei lassen und es jeden Empfänger selber filtern lassen, da nicht jeder alles sehen darf.

 

Hallo Eberhard *wink.gif*

Da hast du schon Recht!
Ich kenne solche Vorhaben nur dann wenn bestimmte Personen nur gewisse Daten sehen sollten und kein echtes ERP in der Firma in Verwendung ist.
Zumeist werden die Teilinformationen als PDF ablegt, oder eben als eigene Excel Datei. Aktuell habe ich gerade bei mir in der Firma den Auftrag bekommen, dass ich für einzelne Fachbereiche Budgetdaten mit den relevanten Daten als PDF ablegen sollte.


@Fargol
ich werde mir die Datei bald mal anschauen..., ich bin gerade dabei dieses PDF's Zeugs zu machen das hat Vorrang.

 

Natürlich, will dich ja nicht von deiner eigenen Arbeit abhalten... freue mich, dass du überhaupt so hilfsbereit bist *top


Ja, eigentlich haben wir dann den gleichen Fall bei uns, allerdings sollten bei mir die Daten schon in Excel bleiben, da die Kollegen dort noch gewisse Anmerkungen machen sollen, die am besten auch per Excel nachher wieder verarbeitet werden können. Ich will bloß keine Zettelwirtschaft zurückbekommen *wink.gif*