11.11.2017, 15:12
Hallo,
eine Aufgabe die ich mangels der nötigen VBAkenntnisse nicht zu lösen imstande bin:
Die fiktive, sich eng an eine reale anlehnende Aufgabe und ihre Umgebung: es geht darum, Daten aus monatlichen Dateien Blatt pro Blatt in jährliche zu kopieren. Die Daten bestehen aus dem Datum und Zeichen (einzelne Buchstaben).
In der fiktiven Aufgabe habe ich N Verkaufsstände, mit Verkäufern, die verschiedene Lebensmittel verkaufen.
Jeder Verkaufsstand hat für jeden Monat eine Exceldatei (Name: Verkaufsstand 1 bis N & Monat & Jahr; z.B: "Februar 2017 Verkaufsstand 3") bin der jeder Verkäufer sein Blatt hat in dem er jeden Tag wo er arbeitet mit einem X eingibt, welche Artikel er verkauft hat (die Anzahl ist unerheblich).
Diese monatlichen Dateien mit den Blättern der Verkäufer werden von allen Verkaufsständen zentral gesammelt, alle in einen Ordner namens "Zu kopierende Dateien" abgelegt, und die Aufgabe der Makro ist es, Datei für Datei zu öffnen und Verkäufer pro Verkäufer die Daten von A4:L64 in die entsprechende Jahresdatei (Name: Verkaufsstand 1 bis N & Jahr; z.B.: "Verkaufsstand 3 2017"), in der jeder Verkäufer sein Blatt hat, zu kopieren.
Zur Aufgabe der Makro gehört auch, zu schauen ob jeder Verkäufer der Monatsdatei schon ein Blatt in der Jahresdatei hat, ansonsten (wenn er erst während des Jahres mit der Arbeit beginnt) eins zu schaffen, das den selben Aufbau hat wie die anderen.
Der Aufbau der monatlichen und der Jahrestabellen ist identisch.
Eine Partikularität meiner Monatsblätter ist, dass es für jeden Tag zwei übereinander liegende Zeilen gibt (so ist die Vorgabe in meiner realen Aufgabe) in der die Zellen zwei und zwei vertikal miteinander verbunden sind. Die Werte stehen immer in der oberen Zeile: 4, 6, 8, 10, usw. Im Jahresblatt soll jedes Datum nur 1 Zeile haben.
Ein Beispiel der Prozedur: die Daten von Februar kopieren.
Die Makro schaut also welche monatlichen Dateien es im Sammelordner "Zu kopierende Dateien" gibt, öffnet die Datei "Februar 2017 Verkaufsstand 3", öffnet die Datei "Verkäufe 2017 Verkaufstand 3", kopiert die Daten (Datum und X) des Blattes "Verkäufer1 von A4 bis L64 und fügt sie in der Datei "Februar 2017 Verkaufsstand 3" in das Blatt "Verkäufer1" in die erste freie Zeile (unterhalb der Daten von Januar die schon eingefügt sind) ein.
Idem für Verkäufer2.
Dann stellt die Makro fest, dass es in der monatlichen Datei 2 neue Verkäufer Verkäufer3 und Verkäufer4 gibt die noch kein Blatt in der Jahresdatei haben (weil sie im Januar noch nicht gearbeitet haben), und fügt für jeden dieser Verkäufer ein Blatt ein, und kopiert dann die Daten in die nächste freie Zeile, d.h. also in diesem Fall ganz oben unter die Zeile mit den Artikeln.
Wenn die Daten aller Blätter kopiert sind wird die Jahresdatei abgespeichert und geschlossen. Die Monatsdatei wird geschlossen ohne Abspeichern. Noch komfortabler wäre es (ist aber nicht zwingend notwendig), wenn sie dann in ihren definitiven Zielordner (siehe unten die Ordnerstruktur) wo sie bleiben soll, verschoben werden würde.
Dann öffnet die Makro die nächste Monatsdatei und die entsprechende Jahresdatei usw.
Das ist die Aufgabe.
Die Ordnerarchitektur:
Der Hauptordner: D:\Projekt
Jeder Verkaufsstand hat einen Unterordner in der sich die Jahresdatei befindet und in dem nach dem Kopiervorgang die Monatsdateien abgelegt werden sollen:
D:\Projekt\Verkaufsstand N\
die Dateien im Ordner: Januar 2017 Verkaufsstand N
Februar 2017 Verkaufsstand N
.
.
.
Verkäufe 2017 Verkaufsstand N
Der Unterordner in dem die Dateien zwecks Kopierens allmonatlich abgelegt werden (um nach dem Kopiervorgang in ihrem definitiven Ordner zu landen):
D:\Projekt\Zu kopierende Dateien
Die Makro soll sich in einer Datei namens "Makros" befinden und auf Knopfdruck gestartet werden ( ich habe eine fiktive Makro und einen Knopf erstellt):
D:\Projekt\[Makros.xlsm]
Siehe auch angehängte Datei "Ordnerstruktur".
In der Hoffnung, mich verständlich ausgedrückt zu haben,
mit freundlichen Grüßen
Alooha
eine Aufgabe die ich mangels der nötigen VBAkenntnisse nicht zu lösen imstande bin:
Die fiktive, sich eng an eine reale anlehnende Aufgabe und ihre Umgebung: es geht darum, Daten aus monatlichen Dateien Blatt pro Blatt in jährliche zu kopieren. Die Daten bestehen aus dem Datum und Zeichen (einzelne Buchstaben).
In der fiktiven Aufgabe habe ich N Verkaufsstände, mit Verkäufern, die verschiedene Lebensmittel verkaufen.
Jeder Verkaufsstand hat für jeden Monat eine Exceldatei (Name: Verkaufsstand 1 bis N & Monat & Jahr; z.B: "Februar 2017 Verkaufsstand 3") bin der jeder Verkäufer sein Blatt hat in dem er jeden Tag wo er arbeitet mit einem X eingibt, welche Artikel er verkauft hat (die Anzahl ist unerheblich).
Diese monatlichen Dateien mit den Blättern der Verkäufer werden von allen Verkaufsständen zentral gesammelt, alle in einen Ordner namens "Zu kopierende Dateien" abgelegt, und die Aufgabe der Makro ist es, Datei für Datei zu öffnen und Verkäufer pro Verkäufer die Daten von A4:L64 in die entsprechende Jahresdatei (Name: Verkaufsstand 1 bis N & Jahr; z.B.: "Verkaufsstand 3 2017"), in der jeder Verkäufer sein Blatt hat, zu kopieren.
Zur Aufgabe der Makro gehört auch, zu schauen ob jeder Verkäufer der Monatsdatei schon ein Blatt in der Jahresdatei hat, ansonsten (wenn er erst während des Jahres mit der Arbeit beginnt) eins zu schaffen, das den selben Aufbau hat wie die anderen.
Der Aufbau der monatlichen und der Jahrestabellen ist identisch.
Eine Partikularität meiner Monatsblätter ist, dass es für jeden Tag zwei übereinander liegende Zeilen gibt (so ist die Vorgabe in meiner realen Aufgabe) in der die Zellen zwei und zwei vertikal miteinander verbunden sind. Die Werte stehen immer in der oberen Zeile: 4, 6, 8, 10, usw. Im Jahresblatt soll jedes Datum nur 1 Zeile haben.
Ein Beispiel der Prozedur: die Daten von Februar kopieren.
Die Makro schaut also welche monatlichen Dateien es im Sammelordner "Zu kopierende Dateien" gibt, öffnet die Datei "Februar 2017 Verkaufsstand 3", öffnet die Datei "Verkäufe 2017 Verkaufstand 3", kopiert die Daten (Datum und X) des Blattes "Verkäufer1 von A4 bis L64 und fügt sie in der Datei "Februar 2017 Verkaufsstand 3" in das Blatt "Verkäufer1" in die erste freie Zeile (unterhalb der Daten von Januar die schon eingefügt sind) ein.
Idem für Verkäufer2.
Dann stellt die Makro fest, dass es in der monatlichen Datei 2 neue Verkäufer Verkäufer3 und Verkäufer4 gibt die noch kein Blatt in der Jahresdatei haben (weil sie im Januar noch nicht gearbeitet haben), und fügt für jeden dieser Verkäufer ein Blatt ein, und kopiert dann die Daten in die nächste freie Zeile, d.h. also in diesem Fall ganz oben unter die Zeile mit den Artikeln.
Wenn die Daten aller Blätter kopiert sind wird die Jahresdatei abgespeichert und geschlossen. Die Monatsdatei wird geschlossen ohne Abspeichern. Noch komfortabler wäre es (ist aber nicht zwingend notwendig), wenn sie dann in ihren definitiven Zielordner (siehe unten die Ordnerstruktur) wo sie bleiben soll, verschoben werden würde.
Dann öffnet die Makro die nächste Monatsdatei und die entsprechende Jahresdatei usw.
Das ist die Aufgabe.
Die Ordnerarchitektur:
Der Hauptordner: D:\Projekt
Jeder Verkaufsstand hat einen Unterordner in der sich die Jahresdatei befindet und in dem nach dem Kopiervorgang die Monatsdateien abgelegt werden sollen:
D:\Projekt\Verkaufsstand N\
die Dateien im Ordner: Januar 2017 Verkaufsstand N
Februar 2017 Verkaufsstand N
.
.
.
Verkäufe 2017 Verkaufsstand N
Der Unterordner in dem die Dateien zwecks Kopierens allmonatlich abgelegt werden (um nach dem Kopiervorgang in ihrem definitiven Ordner zu landen):
D:\Projekt\Zu kopierende Dateien
Die Makro soll sich in einer Datei namens "Makros" befinden und auf Knopfdruck gestartet werden ( ich habe eine fiktive Makro und einen Knopf erstellt):
D:\Projekt\[Makros.xlsm]
Siehe auch angehängte Datei "Ordnerstruktur".
In der Hoffnung, mich verständlich ausgedrückt zu haben,
mit freundlichen Grüßen
Alooha